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-REM & 


IDENTIFICATION 


PRODUCT CODE: AC=F244A-MC 

PRODUCT NAME: CJKDDAO KEF11-AA DIAGNOSTIC PART 2 
DATE CREATED: 20-JUN-79 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTUED AS A COMMITMENT ! 
DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY OCCUR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THE TWO PROGRAMS : 
CJKDCA, CJKDDA 


te DESIGN TO DETECT AND REPORT LOGIC FAULTS IN THE 
-11 MMU AND FLOATING POINT CHIP SET. THE 

DESIGN IS AN ATTEMPT TO REACH ALL MIRCO-CODE LOCATIONS. 

TESTS ARE PARTITIONED INTO TWO STAND-ALONE PROGRAMS 

CESCRIBED BELOW. 


NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 

UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS (CPU, MMU, FP1) 
HAVE BEEN RUN AND IN MOST “s THAT THERE IS ONLY A SINGLE 
POINT FAULT EXISTS. IF THE PROGRAMS OR TESTS 

my IN ORDER THEN ERROR MESSAGES MAY NOT BE 


A. CUKDCA 

CJKDCA TESTS: (FLOATING POINT TEST 1) 
LDFPS 
STFPS 


CFCC 
SETF, SETD, SETI AND SETL 
STST 


LDF AND LDD (ALL SOURCE MODES) 

STD (MODE 0 AND 1) 

ADDF, ADDD AND SUBD (MOST CONDITIONS) 

ADDF, ADDD AND SUBD (ALL CONDITIONS NOT 
TESTED IN DFFPA) 

CMPD AND CMPF 


MODD AND MODF 
B. CJKDDA 
CJKDDA TESTS: (FLOATING POINT TEST 2) 


STF AND STD (ALL MODES) 
STCFD AND _ STCDF 

CLRD AND CLRF 

NEGF AND NEGD 

ABSF AND ABSD 

TSTF AND TSTD 

NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
LDFPS (ALL SOURCE MODES) 
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LDCIF AND LDCLF 
wes AND LDCLD 


LDE 
STFPS (ALL DESTINATION MODES) 
STCFL AND STCFI 
STCDL AND STCDI 


STEXP 
STST 


REQUIREMENTS 


EQUIPMENT 
A PROCESSOR USING THE DCF11-AA,KTF11=AA AND KEF11-A CHIP SET. 
STORAGE 


BOTH PROGRAMS REQUIRE A MEMORY SYSTEM OF AT 
LEAST 16K TO LOAD AND RUN. 


PRELIMINARY PROGRAMS 
THESE TWO DIAGNOSTICS WILL ASSUME THAT THE 
BASIC CENTRAL PROCESSOR IS FAULTLESS, THEREFORE 


WHEN IN DOUBT RUN THE DCF11-AA PROCESSOR DIAG- 
NOSTICS BEFORE THESE FLOATING POINT DIAGNOSTICS. 


LOADING PROCEDURE 


THE PROGRAMS WILL BE SUPPLIED ON _ THE _ 11/23 
DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
MANUAL FOR FURTHER INFORMATION. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
PROGRAM AND OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY 

LOAD ADDRESS 200 

Pees epent SWITCHES (IF CONSOLE IS PRESENT) 
ON FIRST PASS THE PROGRAM 

WILL IDENTIFY ITSELF. NOTE THAT IF THERE IS 
NO PHYSICAL CONSOLE THE PROGRAM WILL REQUEST 
THE OPERATOR FOR INITIAL VALUE FOR_ THE 
SOFTWARE SWITCH REGISTER (SEE SECTION 8.5). 
IF RUNNING UNDER ACT, APT OR CHAIN THIS DOES 


— 2 ss I YS ess ss 
BRLKSRAVLSSELE 
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NOT APPLY. 
THE PROGRAM WILL LOOP AND AN END OF PASS WILL 
BE TYPED AT THE END OF EVERY PASS. 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 
THE SWITCH SETTING ARE: 


ia] 
ad 
oO 


SW<15> HALT ON ERROR 
LOOP ON CURRENT TEST 


INHIBIT ERROR TYPE OUTS 
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R 
TEST SPECIFIED IN SW<6> 
THROUGH SW<0> 


WHEN AN ERROR IS tor AN ERROR MESSAGE ACCOMPANIED 
BY THE ERROR PC ARE TYPED 

THERE ARE FOUR STANDARD ERROR MESSAGES itt DESCRIBING 

THE PROBABLE CAUSE OF FAILURE, SUCH AS: PROBABLY BAD MMU CHIP; 
BAD FP1 CHIP; BAD HYBRID FP CHIP; FLOATING POINT ERROR. 


6.2 ERROR RECOVERY 


SW<15:9>=0... | MOST ERRORS WILL CAUSE EXECUTION 10 
GO TO THE START OF THE NEXT TEST 
AFTER THE MESSAGE IS TYPED. A_ FEW 
TESTS ARE IN SECTIONS. _IN THESE 
TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO TO THE NEXT SECTION AFTER THE 
MESSAGE IS TYPED. 


SW<15>=1... THE PROGRAM WILL HALT AFTER TYPING 
THE ERROR MESSAGE. 
CONSOLE CONTINUE WILL 
PROGRAM TO CONTINUE AS IF SwW<15>=0. 


RESTRICTIONS 
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NONE 
MISCELLANEOUS 


EXECUTION TIMES 
LESS THAN 2 SECONDS FOR EACH PROGRAM ON ANY PASS. 
STACK POINTER 


THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 
THE TWO PROGRAMS. 


PASS COUNT 


THE PROGRAM MAKES ONE PASS FOR EACH END OF PASS 
MESSAGE TYPED. THE END OF PASS MESSAGE DESCRIBES 
THE TOTAL NUMBER OF PASSES COMPLETED. 


T-BIT TRAPPING 


IF SW<12>=0 EACH PROGRAM WILL RUN WITH TRACE TRAPS 
ON EVERY OTHER PASS. _ FIRST PASS WILL NOT ENABLE 
TRACE TRAPS. NOTE SW<12>=1 DISABLES T-BIT TRAPS. 


SOFTWARE SWITCH REGISTER 


EACH OF THE TWO PROGRAMS WILL RUN WITH OR WITHOUT 
A CONSOLE SWITCH REGISTER. IF A PHYSICAL CONSOLE 
SWITCH REGISTER IS PRESENT ON THE SYSTEM, THEN THESE 
PROGRAMS WILL GO AHEAD AND USE IT FOR THE SWITCH 
FUNCTIONS DESCRIBED IN 5.1 ABOVE. IF HOWEVER THERE 
NO CONSOLE SWITCH REGISTER - THE SYSTEM A 


IS_ RUNNING. THIS CONTROL G WILL CAUSE 
THE CONTENTS OF THE SOFTWARE SWITCH REGISTER TO BE 
TYPED. ON THE TTY AND ASK THE USER FOR A NEW VALUE. 
+’ THE USER TYPES A VALUE AND CARRIAGE RETURN THEN 
THE PROGRAM WILL RESUME TESTING AT THE SAME POINT AT 
WHICH IT LEFT OFF WHEN THE USER TYPED CONTROL G. 
NOTE THAT WHEN NOT RUNNING UNDER ACT, APT OR CHAIN 
THE USER WILL BE ASKED 
REGISTER VALUE AFTER LOA 
Nie THE PROGRAM THE FIRST TIME THE PROGRAM | 
AFTER LOADING (ONLY IF NO CONSOLE SWITCH 
REGISTER IS ON THE SYSTEM). 


ACT, APT AND XXDP COMPATIBILTY 
THE SE sy * tae ARE FULLY COMPATIBLE WITH: 
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323 9. PROGRAM DESCRIPTION 


331 TEST 1 LDFPS, STFPS AND DATA PATHS TEST 


THIS IS A TEST OF THE LDFPS (LOAD FLOATING POINT 
335 STATUS) AND STFPS (STORE FLOATING oe STATUS) 
336 INSTRUCTIONS. VARIOUS PATTERN ARE USED AND RUN 

337 THROUGH THE FLOATING POINT STATUS REGISTER. 

338 ONLY DMO AND SMO ARE USED. NOTE THAT 

339 MASK MUST BE USED BECAUSE SOME OF THE FPS BITS 
340 CANNOT BE SET. 


342 TEST 2 CFCC TEST 


345 THIS IS A TEST OF THE COPY CONDITION CODES 
346 INSTRUCTION, CFCC. 


TEST 3 SETF, SETD, SETI AND SETL TEST 


352 THIS IS A TEST OF THE SETF, SETD, SETI AND SETL 
353 INSTRUCTIONS. EACH INSTRUCTION IS EXECUTED WITH THE 
354 FPS CONTAINING ALL ONES AND ALSO WITH THE FPS CLEAR. 
355 THE RESULT OF EACH SITUATION IS CHECKED. 


357 TEST 4 ILLEGAL FPP OP CODES AND STST TEST 


THIS IS A TEST OF THE FPP OPERATION CODES: 


362 170003 
363 170004 


364 : 

365 170010 
366 170013 
367 170014 
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170077 
THESE ARE ILLEGAL INSTRUCTIONS AND WiTH INTERRUPTS 
ENABLED SHOULD CAUSE A_ TRAP TO 244. ALSO TESTED 
HERE IS THE INSTRUCTION: STST R1, WHICH SHOULD PUT 
THE FEC CODE 2 IN R1, AFTER ANY OF THE ABOVE OP 
CODES IS EXECUTED. 
FID, INTERRUPT DISABLE, BIT TEST 

THIS IS A TEST OF FPS BIT 14 (FID) OR FLOATING 
INTERRUPT DISABLE. AN ILLEGAL INSTRUCTION IS 
EXECUTED WITH FID=1. NO INTERRUPT SHOULD OCCUR. 


LDD AND STD, WITH SRC AND DST MODE 1, TEST 


THIS IS A TEST OF BOTH THE INSTRUCTION: 
D 0) ,ACO 

AND THE INSTRUCTION: 

STD ACO, (RO) MOST OF THE 
FAILURES ARE “ISOLATED TO THE SRC OR DST FLOWS. 
THAT THE INTEGRITY OF ACO HAS NOT BEEN ASSURED, 
THIS MEANS THAT IN SOME CASES IT WILL BE IMPOSSIBLE 
TO ISOLATE CERTAIN DATA PATTERN FAILURES TO EITHER 
THE FLOWS OR THIS ACCUMULATOR. 

FSRC MODE 0 TEST 


THIS IS_A TEST OF FSRC MODE ZERO USING THE LDD AND 
LDF INSTRUCTIONS. 


FDST MODE O TEST 
THIS IS_A TEST OF THE STORE INSTRUCTIONS, STD AND 


STF, WITH FDST MODE 0 
ACCUMULATORS DATA PATTERNS TEST 


THIS IS A_TEST OF THE FLOATING POINT PROCESSOR 
ACCUMULATORS. 


EACH ACCUMULATOR IS TESTED IN TWO WAYS: 
1 TEST PATTERN oe BY FLOATING A 
ONE ACROSS A FIELD OF ZERO 
. 2 TEST PATTERN GENERATED BY FLOATING A 
ZERO ACROSS A FIELD OF ONES 
EACH OF ACCUMULATORS ACO THROUGH ACS IS TESTED. 
FPP ACCUMULATORS DUAL ADDRESS TEST 
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THIS TEST PERFORMS A DUAL ADDRESSING TEST ON THE 
FLOATING ACCUMULATORS. — NOTE THAT ACCUMULATOR ZERO 
IS USED TO ACCESS ALL THE OTHERS. 

FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 
THIS IS A TEST OF FSRC MODE 0 WITH ACCUMULATORS 6 
AND 7. USE OF EITHER OF THESE NON-EXISTENT 


ACCUMULATORS SHOULD RESULT IN A TRAP TO 244 WITH 
FEC=2 (ILLEGAL FPP INSTRUCTION). 


FSRC MODE 


THIS IS A TEST OF 
FSRC MODE 


THIS IS A TEST OF FSRC MODE 4, AUTO DECREMENT MODE. 
FSRC MODE 2, WITH FD=0, TEST 
THIS IS A TEST OF FSRC MODE 2 WITH FD=0. (AUTO 
INCREMENT ) 
FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 


THIS IS A_TEST OF FSRC MODE 2 USING GR7 (THE PC). 
THIS IS IMMEDIATE MODE. 


FSRC MODE 
THIS IS A TEST OF FSRC MODE 3, AUTO INCREMENT 
DEFERRED 

FSRC MODE 5 TEST 
THIS IS A TEST OF FSRC MODE 5, AUTO DECREMENT 
DEFERRED. 

FSRC MODE 6 TEST 


THIS IS A TEST OF FSRC MODE 6, INDEX MODE 
FSRC MODE 7 TEST 
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THIS IS A TEST OF FSRC MODE 7, INDEX DEFERRED MODE. 
TEST 24 (BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


THIS IS A TEST OF THE (BUT EZBT Y8) FORK, THE (BUT 
ENBT) FORK AND (BUT FIUV) FORK IN THE LOAD 
INSTRUCTION FLOWS. 

EACH OF THE PATTERNS: 


0 
+NUM 
-NUM ‘ 
-0 
IS LOADED TWICE, ONCE WITH AC>O THEN WITH AC=0. 
AFTER EACH LOAD THE FPS IS CHECK TO INSURE THAT 
CONTROL WAS PASSED THROUGH WITH THE FORKS PROPERLY. 


TEST 25 ADDF ,ADDD ,SUBF AND SUBD WITH FSRC=AC=0 TEST 


THIS IS A TEST OF ADD AND SUB WITH FSRC=AC=0 
TEST 26 ADDD AND SUB WITH FSRC=0 


THIS IS A TEST OF ADD AND SUB WITH FSRC=0. 
TEST 27 SUBD WITH AC=0 TEST 


THIS IS A TEST OF SUBD WITH AC=0. BOTH POSITIVE AND 
NEGATIVE FSRC'S ARE TRIED. 


TEST 30 ADDD WITH AC=0 TEST 


POSITIVE AND NEGATIVE FSRC'S ARE TRIED. 
TEST 31 ADDF AND ADDD WITH E(AC)=E(FSRC) AND (BUT FT) TEST 


THIS IS A TEST OF THE ADD INSTRUCTION WITH THE 
OPERANDS HAVING EQUAL EXPONENTS. THE (BUF FT) FORK 
IN THE ROUND/TRUNK FLOWS IS ALSO TESTED. 


TEST 32 ADDF AND ADDD WITH E(AC) LESS THAN E(FSRC) TEST 


THIS IS ATEST OF THE ADDD AND ADDF INSTRUCTIONS AND 
THE ALIGN AC ALGORITHM FLOWS. THE CONSTANT (25 FOR 
FLOATING, 57 FOR DOUBLE) USED IS CHECKED. THEN 
SIMPLE AND WORST CASE ALIGNMENT SITUATIONS ARE 
TRIED. NOTE ECAC) IS LESS THEN E(FSRC) 


SEQ 0010 
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ADDF AND ADDD WITH E(AC) GREATER THAN E(FSRC) TEST 


THIS IS A TEST OF THE ADDD AND ADDF INSTRUCTIONS AND 
THE ALIGN FSRC ALGORITHM FLOWS. FIRST THE CONSTANT 
USED IS_ CHECKED. THEN SIMPLE AND WORST CASE 
ALIGNMENT SITUATIONS ARE TRIED. NOTE ECAC) IS 
GREATER THAN E(FSRC). 


ADDD WITH NEGATVE OPRANDS TEST 


THIS IS A TEST OF THE ADDD INSTRUCTION WITH NEGATIVE 
ata EVERY COMBINATION OF OPERAND SIGNS IS 


SUBD TEST 


THIS IS A TEST OF THE SUBD INSTRUCTION. BOTH A 
a AND A NEGATIVE NUMBER IS SUBTRACTED FROM IT 


NORMALIZE ALGORITHM TEST 


THIS IS A TEST OF THE NORMALIZE FLOW ALGORITHM. TWO 
PATTERNS ARE USED, FIRST ‘THE MINIMUM SITUATION 
REQUIRING ONE LEFT SHIFT AND THEN THE MAXIMUM 
SITUATION REQUIRING 56 SHIFTS. 


ROUND\ TRUNK TEST 


THIS IS A_ TEST OF THE ROUND\TRUNK FLOWS. _ IN 
PARTICULAR TWO THINGS ARE TESTED: dy A el 
IN WHICH ROUNDING RESULTS IN THE NEED FOR 
RENORMALIZATION, AND SECOND THE PSW CONDITION CODES 
N AND Z BIT COMMBINATIONS 


OVER\UNDER TEST 


THIS IS A PARTIAL TEST OF THE OVER\UNDER FLOWS. ONE 
OVERFLOW AND TWO UNDERFLOW CONDITIONS ARE CHECKED. 
THE REMAINING UNDERFLOW COND. AND THE REMAINING 
OVERFLOW COND. WILL BE CHECKED LATER USING THE XXX 
INSTRUCTION. HERE EACH CONDITION TESTED IS CHECKED 
BOTH WITH TRAPS ENABLED (FIU=1 OR FIV=1) AND ALSO 
WITH TRAPS DISABLED (FIU=0 OR FIV=0). 


,LDCFD AND LDCDF TEST 


SEQ 0011 
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THIS IS A TEST OF LDCFD AND LDCDF. 
CMPD TEST 


THIS IS A_TEST OF THE CMPD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP OPERANDS, EXECUTE THE 
INSTRUCTION AND CHECK THE RESULTS 


DIVD WITH cai AND (BUT FD) TEST 


THiS IS A TEST OF THE DIVD INSTRUCTION WITH A ZERO 
DIVISOR. THE CONDITION IS CHECKED WITH BOTH TRAP 
ENABLED AND TRAPS DISABLED.’ 


DIVF TEST 


THIS IS A_TEST OF THE my INSTRUCTION. NOTE T 
SUBROUTINE IS _ USED SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


DIVD TEST 


THIS IS A TEST OF THE DIVD 7 ak i NOTE THA 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


MULF TEST 
THIS IS A TEST OF THE MULF_ INSTRUCTION. IT MAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MULF INSTRUCTION AND CHECK THE RESULTS. 


MULD TEST 


THIS IS A_TEST OF THE MULD INSTRUCTION. NOTE T 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE MULD INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED. TEST 


THIS IS A TEST OF THE OVERFLOW AND UNDERFL 

CONDITIONS i THE MULF INSTRUCTION WITH TRAPS 
DISABLED. NOTE THAT A SUBROUTINE IS USED TO SET UP 
se ae EXECUTE THE MULF INSTRUCTION AND CHECK 


UNDER\OVER FLOW, USING MULD WITH TRAPS DISABLED, TEST 


SEQ 0012 
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THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS THAT CAN _ ARRISE USING THE MULD 
INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 
USED TO SET UP THE OPERANDS, EXECUTE THE MULD 
INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 


THIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 
CONDITIONS THAT CAN OCCUR USING THE  MULF 
INSTRUCTION. A SUBROUTINE IS CALLED TO SET UP THE 
OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 
RESULTS. HERE THE PARTICULAR INTERRUPT, EITHER 

OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 


UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST 


THIS IS A TEST OF THE OVER FLOW AND UNDER FLOW 
CONDITIONS USING THE MULD INSTRUCTION WITH TRAPS 
ENABLED. A SUBROUTINE IS USED TO SET UP THE 
a EXECUTE THE MULD INSTRUCTION AND CHECK THE 


MODF TEST 


THIS IS A TEST OF THE MODF ‘ere WHICH MAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MODF INSTRUCTION AND CHECK THE RESULTS. 


MODD TEST 
THIS IS iy TEST OF THE MODD INSTRUCTION. IT MAKES 
USE OF A SUBROUTINE TO SET UP THE ARGUMENTS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE MODF OVERFLOW AND UNDERFLOW 
CONDITIONS. IT MAKES USE OF A SUBROUTINE TO SETUP 
THE OPERANDS, ‘ ECUTE THE MODF INSTRUCTION AND CHECK 
THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 


UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 
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LISTING 





.< 
CJKDDA KEF11=A_DIAG PART 2 MACY11 30A(1052) 20-JUN=-79 11:39 PAGE 15 
CJKDDA.P11 20=JUN=79 11:22 SEQ 0015 


000443 MNUMBER=44 3 
000003 PROGNUM=3 


-LIST ME 
e-NLIST MD,MC,CND 


-ENABL ABS 


-TITLE CJKDDA KEF11-A DIAG PART 2 
:*COPYRIGHT (C) JUNE 1979 
:*DIGITAL EQUIPMENT CORP. 

s smAIN RD, MASS. 01754 


! #PROGRAM BY DIAGNOSTIC ENGINEERING 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s SPACKAGE (MAINDEC~11=DZQAC-C3), JAN 19, 1977. 


$1N 
$ SWR=160000 :HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 


FPVECT=244 

$SWR=177400 

$SWRMSK=200 

TAB=11 

CRLF=15 

-SBTTL BASIC DEFINITIONS 


:*INITIAL ADDRESS OF THE STACK POINTER *** 1100 **« 
001100 STACK= 1100 


-EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE :2BASIC DEFINITION OF SCOPE CALL 


pntSCEL| ANEOUS DEF INITIONS 
11 ::CGDE FOR HORIZONTAL TAB 
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;;CODE FOR LINE FEED 

;;CODE FOR CARRIAGE RETURN 
000200 200 2:CODE FOR CARRIAGE RETURN=LINE FEED 
177776 3PROCESSOR STATUS WORD 


177774 og dla LIMIT REGISTER 
PI ROGRAM_ INTERRUPT REQUEST REGISTER 
ARDWARE SWITCH REGISTER 
177570 : HARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= %0 NERAL REGISTER 


REGISTER 
REGISTER 
RAL _ REGISTER 
S ISTACK POINTER 
: sPROGRAM COUNTER 


LEVEL DEFINITIONS 
7zPRIORITY LEVEL 
;zPRIORITY 
: PRIORITY 
7zPRIORITY 
33PRIORITY 


:sPRIORITY 
: PRIORITY 
2zPRIORITY LEVEL 


3*" SWITCH REGISTER’ SWITCH DEFINITIONS 
SW15= 100000 


NOUS WN-O 


Go 00 00 00 00 00 Oo 
BRR eee 


SwO3, SW3 
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-EQUIV Sw02,SW2 
~-EQUIV SW01,SW1 
-EQUIV Sw00,SwWO 


aerate BIT DEFINITIONS (BITOO TO BIT15) 
100000 


5 
BITO9,BIT9 
B1T08,BI1T8 
BITO7,BI1T7 


-EQUIV BITOO.BITO 


:*BASIC ‘‘CPU"* TRAP VECTOR hey 
EC= TIME OUT AND OTHER ERRORS 
:SRESERVED AND ILLEGAL INSTRUCTIONS 


33 TRACE TRAP 
; BREAKPOINT TRAP (BPT) 
gh ne tel TRAP (IOT) **SCOPE** 


POWER FAIL 

; 3EMULATOR TRAP (EMT) **ERROR** 
;""TRAP’* TRAP 

::TTY KEYBOARD VECTOR 

eeTTy PRINTER VECTOR 


PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
= Ne FPP REGISTER DEFINITIONS 


-SBTTL TRAP CATCHER 


SEQ 0017 
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000000 


000174 
000000 
000000 
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TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A "' «+2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
Seemmatahon °. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: | WORD 0 :-SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 2sSOFTWARE SWITCH REGISTER 
-SBITL STARTING ADDRESS(ES) 
JMP @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


SEQ 0018 
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-SBTTL COMMON TAGS 


FR KIRKE KEKE REE EKER EEE ERE EEK EE KK 


SRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


001100 2 
SCMTAG: 2=START OF COMMON TAGS 


+s CONTAINS THE TEST NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR | on 
ADDRESS OF ‘GOOD' DAT 
ADDRESS OF "BAD' DATA 
‘GOOD * aaa 


: INS * DATA 
 URESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
3: INTERRUPT MODE INDICATOR 


: ADDRESS OF SWITCH REGISTER 
SPT Ty KBD ae *S esaed REGISTER 


SS SS Se 
Nes swmoooooo 
MN ee oS oO 
NSRARNSERAVSS 


S888888888sss 


elelelelelelelelele) lelelelelelelele) 


09 
Se 
oS 
v 


; BUFFER 
TITTY PRINTER STATUS REG. ADDRESS 
7 sTTY PRINTER BUFFER REG. ADDRESS 
:sCONTAINS NULL CHARACTER FOR FILLS 
7-CONTAINS # OF FILLER CHARACTERS soe 
22 INSERT FILL CHARS. AFTER A ‘LINE F 

;"'TERMINAL AVAILABLE*’ phon (BiTcO7> O=YES) 
>:CONTAINS THE ADDRESS F 
a3 (SREGO) WAS OBTAINED 

SREGAD) +0) 


nm 


COOOCOCOCOCOOSCSCSOOSCOOOCOO CO—NoO 


001222 $REG20: : CONTAINS 
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$REG21: +s CONTAINS ( ($REGAD) +42) 
: ONTAINS (($REGAD) +44) 
i CONTAINS (($REGAD) +46) 


leleleleleleleleleleleleleleleleleleoleolelololo) 


D 
NUMBER OF ITERATIONS 
¢ : TESCAPE ON ERROR ADDRESS 
000377 $BELL: <207><377><377> + CODE FOR BELL 
S 12/7 ; QUESTION MARK 
<15> :sCARRIAGE RETURN 
<12> szLINE FEED 
JOOS III IOI IIIT OI III ITT TTT TT IAA AN AA INAS SNS SASSI AAS 


* SBTTL APT MAILBOX~ETABLE 


FF I II IH KIKI IKI KI TKK KKK KK KK 


:sAPT MAILBOX 
: ¢MESSAGE TYPE CODE 


: MODE B 
2:APT SWITCH REGISTER 
:sUSER SWITCHES 


1/04= 01 “1/05 oe 11/20=03,11/40=04,11/45=05 
11776206, Q=10 

BIT 10=REAL TIME C Cock 

BIT 9=FLOATING POINT IOCE SOR 

BIT 8=MEMORY MANAGEMENT 
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1002 «MEXIT 
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-SBITL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC) 

: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


::POINTS TO THE ERROR MESSAGE 
;sPOINTS TO THE DATA HEADER 
::POINTS TO THE DATA 

:sPOINTS TO THE DATA FORMAT 


SERRTB: 

; ITEM NUMBER 
036423 -WORD EMI] 
036452 -WORD EM2 
036507 -WORD EM3 


-SBTTL ACT11 HOOKS 


v4 SERRE REE REAR ERR REE EEE RRR RRA EERE ERE 


;HOOKS REQUIRED BY ACT11 
001354 $SVPC=. SAVE PC 


000046 =46 
033042 SENDAD 3:1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
000052 =52 


000000 “WORD 0 ;i2)SET LOC. 352 TO ZERO 
001354 * =$SVPC t: RESTORE P 
.SBITL APT PARAMETER BLOCK 


Es REE RARAEREEKERE RE REREAERAREREERRRERREKEREREEEEEREREREREEREERRREREE 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
- REAR REE EEEREEREREEREREREEERRREREEEREERERKREEEREEE 
SAVE CURRENT LOCATION 
SET POWER FAIL TO POINT TO START OF PROGRAM 
:FOR APT START UP 
;POINT TO APT INDIRECT ADDRESS PNTR. 
>:POINT TO APT HEADER BLOCK 
;;RESET LOCATION COUNTER 
FT RAAARAARRE ERE RAERERAEEEEREEREAEER ER EEEREARREEEREREEEEEERREREERREEEED 
"SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD: 

$HIBTS: . :TWO HIGH BITS OF 18 BIT MAILBOX —— 

SMBADR: . SMAIL : ADDRESS OF APT ae er (BITS 0-15 

STSTM: , 2 UN TIM OF LONGEST TEST 

SPASTM: , 4 HRN as IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
$ETEND-SMAIL/2 77 LENGTH MAILBOX-E TABLE (WORDS) 


START: 
-SBITL INITIALIZE THE COMMON TAGS 
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3:CLEAR THE COMMON TAGS > wits? AREA 
001100 MOV ASCMTAG ,R6 ;¢FIRST LOCATION TO BE CLEARED 
CLR (R6)+ CLEAR MEMORY LOCATION 
001140 CMP #SWR,R6 ;;DONE? 
a -~6 LOOP BACK IF NO 
001100 MSTACK, SP :tSETUP THE STACK POINTER 
:: INITIALIZE A FEW VECTORS 
033136 M$SCOPE ,AMIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
0340 0022 #340, aM1OTVEC+2 ;:LEVEL 7 
#SERROR , AMEMTVEC fee VECTOR FOR ERROR ROUTINE 
#340, aMEMTVEC+2 ;:LEVEL 7 
#STRAP , AATRAPVEC TRAP VECTOR FOR TRAP CALLS 
#340, @#TRAPVEC+2;LEVEL 7 
#SPWRON, AAPWRVEC i FAILURE VECTOR 
#340, aMPWRVEC+2 ;:LEVEL 7 
031266 SENDCT .SEOPCT SETUP END-OF -PROGRAM COUNTER 
STIMES 32 INITIALIZE NUMBER OF ITERATIONS 
SESCAPE ae THE ESCAPE ON ee ADDRESS 
112767 000001 177401 MOVB #1, SERMAX LLOW ONE ERROR PER TEST 
ss INITIALIZE THE “T-BIT'' TRAP vecfor: a. LOAD LOCATION *‘S$RTRN'', IN 
3: THE ‘'END-OF-PASS'' (SEOP) ROUTINE, WITH A ‘RTI** "RIT 
012737 033106 000014 MOV WSRTRN, @#TBITVEC ;:SET ‘T'' BIT VECTOR tO $RTRN 
000340 - @#TBITVEC+2 gtk VEL 7 
000002 TRN SET SRTRN TO A RTI 
001564 000010 #58 QARE SVEC TRY - A A RTT 


#64$,-(SP) + PC 
“TRY THE RTT 
031324 64$: #RTT .SRTRN SRT IS LEGAL--SET $RTRN TO A RTT 


BR 
65$: #10,SP RTT ILLEGAL--CLEAN OFF THE STACK 
000010 66$: #RESVEC #2, anne svét Ths TRAP CATCHER 
S$TBIT LEAR ‘'T’* BIT SWITCH 
177276 7 -SLPADR i PINITIALIZE THE LOOP ADDRESS FOR SCOPE 
012767 177272 MOV -SLPERR SETUP THE ERROR LOOP ADDRESS 
:sSIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT 
;;EQUAL TO A ‘~1'', SETUP FOR A SOF TWARE SWITCH REGISTER. 
013746 00000 MOV @WERRVEC ,-(SP) R ECTOR 
po ae , @#ERRVEC 


ECTOR 
DSWR, SWR : DWARE SWICH REGISTER 
#DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
177777 + 177266 #~1 ,ASWR 3: TRY TO REFERENCE HARDWARE SWR 
69$ : BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE _ IS NOT = -1 
68$ ; BRANCH IF NO TIMEOU 
001664 67$: MO} #68$, (SP) Z:SET UP FOR TRAP RETURN 


3 


000176 177246 : ASWREG, SWR PO eel TO SOFTWARE SWR 
000174 177242 #DISPREG,DISP 
000004 : (SP)+, aNERRVEC " s ;RESTORE ERROR VECTOR 


177414 CL $SPASS 3zCLEAR PASS COUNT 
000200 177421 MAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 

E 7 22YES,USE NON-APT SWITCH 
001340 177212 #SSWREG, SWR 73NO,USE APT SWITCH REGISTER 


SFLRLRALLES 


_— oe eS ss SS Ss Ss Ss Ss SS 
— es a SS oss SS ss as es 


<td od ed ed 
ShwWwrh-o 


001726 
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CJKDDA.P11 20- JUN=79 11:22 TYPE PROGRAM NAME SEQ 0024 
1115 .SBTTL TYPE PROGRAM NAME 
1116 :; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
1117 001726 005227 177777 INC #-1 ::FIRST TIME? 
1118 001732 001051 BNE 71$ + BRANCH IF NO 
1119 022737 033042 000042 CMF ASENDAD, A442 =: :ACT=11? 
1120 001742 001445 BEQ 71$ + BRANCH IF YES 
1121 001744 104401 002012 TYPE ,72$ Zz TYPE ASCIZ STRING 
1122 .SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
1123 001750 005737 000042 TST as2 i WE RUNNING UNDER XXDP/ACT? 
1124 001754 001012 BivE 73$ : ;BRANCH IF YES 
1125 001756 126727 177354 000001 CMPB —s ENV, #1 ZZARE WE RUNNING UNDER APT? 
1126 001764 001406 BEQ 73$ : BRANCH IF YES 
1127 001766 026727 177146 000176 CMP SWR,ASWREG ::SOFTWARE SWITCH REG SELECTED? 
1128 001774 001005 BNE 74$ : CH IF NO 
1129 001776 104406 GTSWR ::GET SOFT=-SWR SETTINGS 
1130 002000 000403 BR 74$ 
1131 2002 112767 000001 177124 73$:  MOVB  4#1,$AUTOB z:SET AUTO=-MODE INDICATOR 
1132 002010 74$: 
1133 002010 000422 BR 71$ ::GET OVER THE ASCIZ 
1134 ;;72$: .ASCIZ <CRLF>*CJKDDA KEF11-A DIAGNOSTIC PART 2*<CRLF> 
1135 002056 7i$: 
1136 
1137 002056 LOOP: 
1138 
1139 
1140 
1141 
1142 
1143 STR ERE REE REE REE EERE RARER EE 
1144 S*TEST 1 STF WITH ILLEGAL ACCUMULATOR TEST 
** 
1146 ;*THIS IS A TEST OF THE STF INSTRUCTION USING ILLEGAL ACCUMULATOR 7, MODE 0. 
** 
1148 PETIT TITEL ETT T TEL ET ELT T TTT T TTT TTT TTT T TTT TTT TTT TTT TTT 
1149 002056 000004 TST1: SCOPE 
1151 002060 0001: 
1152 002060 104414 LPFRR ;SET UP THE LOOP ON ERROR ADDRESS. 
1153 002062 005000 - CLR RO ‘SET THE FPS. 
1154 002064 170100 LDFPS RO 
1156 002066 012737 002124 000244 MOV #OO0T a#FPVECT ;SET UP FOR FP TRAPS. 
1157 002074 012737 002102 001236 MOV #1$, a4STMP2 
1159 002102 174007 1$: STF ACO,AC7 :THIS TEST INSTRUCTION SHOULD 
1160 :CAUSE A TRAP. 
1162 ;REPORT FAILURE OF USE OF ILLEGAL ACCUMULATOR 7 TO CAUSE AN FPP TRAP. 
1163 002104 0002: 
1164 002104 170200 STFPS RO :GET FPS. 
1165 002106 016037 001240 ' MOV RO, a#STMP3 
1166 002112 170300 STST RO :GET FEC. 
1167 002114 010037 001242 MOV RO, av$TMP4 
1168 002120 104001 3$: ERROR 1 zSTF WITH ILLEGAL ACCUMULATOR, MODE 
1169 30, DIDN'T TRAP. Sf 765 TO ST 537. 
1170 002122 000434 BR OOODONE 
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1171 
1172 : TRAP TO OOOT, HERE, WHEN THE EXPECTED ERROR OCCURS. 
000T: MOV (SPS .RO :MAKE SURE THE ERROR OCCURRED 
002104 2,R0 TAT THE CORRECT ADDRESS. 
SBRANCH IF TRAP ADDRESS CORRECT. 
036140 iF INCORRECT GO REPORT SPURIOUS 


GET FPS. 


5 :GET FEC. 

001240 :SAVE DATA INCASE OF ERROR. 
001242 aASTMPL 

100000 #08000. R2 ZEXPECTED FPS 

000002 #2,R3 “EXPECTED FEC 

001244 R2, a4STMPS 

001246 R3, a4STMP6 

022626 (SP) +, (SP)+ :RESET THE STACK. 


020204 R2.R4 7 WAS on ie CORRECT? 


001402 | 0004 BRANCH IF YES. 

OTHERWISE REPORT FPS INCORRECTLY 
104001 : 1 SET AFTER YSE OF ILLEGAL ACC. 
000403 BR OOODONE 


020305 : R3,R5 WAS THE FEC CORRECT? 
1001401 OOODONE BRANCH IF CORRECT. 
OTHERWISE REPORT INCORRECT FEC 
002212 104001 : sAFTER USE OF ILLEGAL ACC. 


002214 : 

002214 104413 :GO et ee THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE . 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


— ow SS SY os 


DOD) a at at ot ot 2 2 8 2 I 2 ot 2 ot oh oh oo oe a 
LSBSRLRKARANLSSELKAKAVASIAVRARS 


INI 
GEERES 


So 


DONRNRWY BOSS 


SL AREER KREERKEKKEREKEKEEKERE REE EEEKREEEEEKEEEEEKEEEREEKKKKKKEK 


s*TEST 2 FDST MODE 1, FLOATING MODE, TEST 
j*THIS IS A TEST OF THE STF INSTRUCTION USING FDST MODE 1. 


e 
Fic ilies ta 


TST2: SCOPE 
PPP1: 


le ed a td a od a 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 


012700 177777 #-1,RO SET UPA 7 rie PATTERN IN THE 
002356 : INPUT BUFFER. 
000014 R 


NNN ge php phe gh phe phe gh ggg! od 


hr 
mo 


1 
1 
1 
1 
1 
1 
1 
4 
; 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
1 
1 
1 
1 
1 
1 


Nm 
NM 
Ww 


010021 
077202 
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1227 
1228 


MMMwVrorvrururunhD 
ARUVISS 


ced edd a ceed ed ae ad ee ceed cd a ed ed 
WWW 
BOGE 
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174010 
022700 
001404 


000200 
002406 


002372 


002300 
001240 


002372 


001242 


002372 
002406 


177777 
177777 


2 
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001236 


T MODE 1, 
MOV #200,R0 
LDFPS 


R 
MOV #PPPTPI RO 
LDD ),AcO 


MOV #PPPBF 1,RO 

CLR R2 

LDFPS Re 

MOV #PPP3 , AAS TMP2 
RO, a#STMP3 
ACO, (RO) 
#PPPBF1,RO 
PPP4 
RO. aASTMP4 
PPPDONE 
#PPPBF1,RO 
#PPPTP1.R1 
(RO) +, (R1)+ 
PPP10 
(RO) +, (R1) 


#-1,(RO)+ 
PPP15 


FLOATING MODE, JEST 
SET FD MODE. 
:PUT TEST DATA INTO ACO. 


:FDST ADDRESS. 
CLEAR THE FPS. 


TEST INSTRUCTION. 


zWAS RO MODIFIED DURING EXECUTION? 
:BRANCH IF RO NOT MODIFIED, CORRECT. 


OTHERWISE REPORT ERROR, RO MODIFIED. 
:GO TO NEXT TEST. 
CHECK THE DATA IN THE OUTPUT BUFFER. 


BRANCH IF INCORRECT. 


BRANCH IF INCORRECT. 
WAS FLOATING MODE USED? 
BRANCH IF NOT. 


SEQ 0026 


#-1, (RO) 

PPP15 

PPPDONE ;GO TO NEXT TEST. 
177777 177777 177777 PPPBFO: -1,-1,-1,-1,-1,-1 
177777 (177777 :=«:177777 


177777 «4177777 177777 PPPBF1: 
177777 «=©177777 =177777 


123456 023456 PPPTP1: .WORD 123456,23456 
034567 045671 -WORD 34567,45671 


zREPORT DATA IN OUT PUT BUFFER INCORRECT. 
012737 002406 001242 PPP10: MOV #PPPTP1 ,@#STMPS 

012737 002372 001240 MOV #PPPBF 1; aa#STMP3 
104001 1$: ERROR 1 

000407 BR PPPDONE 


-1,-1,-1,-1,-1,-1 


:BAD DATA, 


FLOATING MODE NOT USED, BUT FD FAILED. 
MOV #PPPTP1 ,@#STMP4 


012737 0024 : . 
012737 MOV #PPPBF 1 ,a#STMPS 
104001 1$: ERROR 1 


PPPDONE : 
RSE TUP 


3ST 707 TO 245 INTO 244 (BUT FD). 


104413 :G6 INTIAL Ze THE FPS ms STACK; AND 
SEE IF THE USER HAS EXPRESSED : 


THE DESIRE TO CHANGE THE SOFTWARE 
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1283 
1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 


1292 
1293 


SESSSReSSS see Ry 


aed aah ae ce ced ca ed a ced ed 
WOONAUSWN—O 


Mr 
=® 


: 
: 
; 
1 
; 
7 
: 
; 
; 
1 
1 
1 
1 
: 
1 
1 
; 
, 
1 
: 
1 
: 
1 
1 
: 
1 
1 
: 
1 


WNWNWWAWWNAWAWG 


Nm 
ae) 
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2 
172410 
012700 


005002 
170102 
012737 


174020 
022700 


177777 


177777 
002620 
000014 
000200 
002650 
002634 


002534 


002640 


001242 
002640 


002634 
002650 


177777 
177777 


177777 
177777 
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001236 


001240 


FDST MODE 1, FLOATING MODE, TES) 


VIRTUAL CONSOLE SWITCH “3 pee (HAS 
; THE USER TYPED CONTROL G?) 


FT KERR RRR ERE RK KKK 


:*TEST 3 FDST MODE 2 TEST 
jsTHIS IS A TEST OF BOTH STF AND STD WITH FDST MODE 2. 


+b esniaeieaeianiatennshobinhiianinieaannneananietidatiiaedeenenmmmebnanaae 


1813: SCOPE 


sFIRST TEST STF. 
QQQ1: 


;SET UP THE LOOP ON ERROR ADDRESS. 
#-1,RO ;SET UP THE OUTPUT BUFFER. 
#QQQBF0,R1 
#14,R2 
RO, (R1)+ 
R2,QQQ2 
#200,R0 sSET FD MODE. 
RO 


#QQQTP1 ,RO SETUP ACO. 
(RO) ,ACO 


on :FDST ADDRESS. 


R2 SET FPS. 
#0003 ,a4$TMP2 


ACO, (RO) + 3; TEST INSTRUCTION. 
#QQQBF 1+4,RO zWAS RO INCREMENTED BY 4 PROPERLY? 


;BRANCH IF RO CORRECT. 
RO, aS TMP4 “REPORT RO INCORREET AFTER FDST MODE 2. 
#OQQBF 1+4 ,a#'STMP MPS 


BAD CONSTANT USED OR DIDN'T GO 527 TO 642 
#QQQBF1.RO WAS THE OUTPUT DATA CORRECT? 

#QQQTP1>R1 

(RO)+,(R1) +. 


Q0010 s;BRANCH IF INCORRECT. 
(RO)#, (RI) 
Q0Q10 


BRANCH IF INCORRECT. 
SEE IF ANY OTHER DATA BUFFER WORDS WERE MODIFIED. 
BRANCH IF INCORRECT. 


;BRANCH IF INCORRECT. 


BR 
177777 QQQBFO: .WORD =1,=-1,-1,-1,-1,-1 


177777 


SEQ 0027 
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1339 002634 177777 177777 177777 QQQBF1: .WORD <1,-1,-1,-1,-1,-1 
1340 002642 177777 177777 177777 

1341 002650 076543 QQQTP1: 76543 

1342 002652 065432 65432 

1343 002654 054321 §4321 

1344 002656 043210 43210 

1345 ;REPORT OUTPUT DATA INCORRECT: 

1346 002660 012737 002650 001240 00010: MoV #QQQTP1, XS TMP3 

1347 002666 012737 002634 001242 MOV #QQQBF 1. avSTMPS 

1348 00264 104001 1$: ERROR 1 :BAD DATA 

1349 002676 000457 BR QQQDONE 

1351 zNOW TEST STD MODE 2. 

1353 002700 00020: 

1354 002700 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1355 002702 012700 002620 MOV #QQQBF0,RO *SET UP DEFAULT INPUT DATA BUFFER. 
1356 002706 010001 MOV RO,R1 

1357 002710 012702 000014 MOV #14 ,R2 

1358 002714 010021 QQQ22: MOV RO, (R1)+ 

1359 002716 077202 SOB R2,Q0022 

1360 002720 012700 000200 MOV #200,RO ;ENTER FLOATING DOUBLE MODE. 

1361 002724 170100 LDFPS RO 

1362 002726 012700 002650 MOV #QQQTP1,RO ZLOAD ACO. 

1363 002732 172410 LDD (RO) ,ACO 

1364 002734 012700 002634 MOV #QQQBF1,RO zSET DESTINATION ADDRESS. 

1365 002740 012737 002746 001236 MOV #00023, a4STMP2 

1366 002746 174020 QQ023: STD ACO, (RO) + TEST INSTRUCTION. 

1367 002750 022700 002644 CMP #OQGBF1+10, RO S RO INCREMENTED BY 10 CORRECTLY? 
1368 002754 001407 BEQ 9024 ‘BRANCH IF CORRECT. 

1369 002756 010037 001242 MOV RO oF “REPORT RO TRCORRETLY INCREMENTED. 
1370 002762 012737 002644 001240 MOV fobasrie10, aeSTMP3 

1371 002770 104001 1$: ERROR 1 :D0 NOT INCREM BY 10 BAD CONSTANT 
1372 002772 000421 BR QQQDONE 

1373 002774 012700 002634 Q0024: MOV #QQQBF1,RO ;DID THE DATA REACH THE OUTPUT BUFFER CORRECTLY? 
1374 003000 012701 002650 MOV #QQQTP1,R 

1375 003004 012702 000004 MOV #4 ,R2 

1376 003010 022021 1$: CMP (RO)+, (R1)+ 

1377 003012 001002 BNE 00025 :BRANCH IF INCORRECT. 

1378 003014 077203 SOB R2,1$ 

1379 003016 000407 BR QQQDONE 

1380 ;REPORT DATA INCORRECT. 

1381 003020 012737 002650 001240 00025: MOV #Q0QTP1 ,a#STMP3 

1382 003026 012737 002634 001242 MOV #QQOQBF 1. a4$TMPG 

1383 003034 104001 1$: ERROR 1 :BAD DATA 

1384 003036 QQQDONE : 

1385 003036 104413 RSETUP G0 INITIALIZE THE FPS AND STACK: AND 
1386 :SEE IF THE USER HAS EXPRESSED 
1387 ‘THE DESIRE TO CHANGE THE SOFTWARE 
1388 :VIRTUAL CONSOLE SWITCH REGISTER (HAS 
1389 [THE USER TYPED CONTROL G?) 

1391 DIR KEK KK KERR EKER ERE EERE REE EERE EER EERE REREK ERK 
139 : FEST 4 FDST MODE 2, WITH GR7, TEST 

1394 THIS IS A TEST OF STF WITH GR7 MODE 2 OR IMMEDIATE MODE. 
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SET UP THE LOOP ON ERROR ADDRESS. 
003122 ARRR3 RO ;SET UP THE DATA BUFFER FOLLOWING THE TEST INSTRUCTION. 
it Aa ¥ #RRRTP1,R1 


0004 #4,R 
(RO) + .(R1)+ 
000200 MOV #200,R0 ZENTER FLOATING DOUBLE MODE. 


003200 MOV ‘mo ate :SET UP ACO. 
003220 000004 #RRR10,@#ERRVECT ;SET UP FOR AN ODD ADDRESS. 
003120 001236 MOV tes , OAS TMP2 


CLR R4 
sTHIS IS_THE TEST INSTRUCTION. IT SHOULD MODIFY THE FIRST LOCATION 
ZAETER IT TO BE AN INCREMENT R4, INC R4, INSTRUCTION INSTEAD 
AN_INCREMENT R1 INSTRUCTION. THE INCREMENT R4 SHOULD NOT BE 
‘EXECUTED SINCE THE PC SHOULD BE INCREMENTED BY TWO DURING IMMEDIATE 
;MODE ADDRESSING. THUS AFTER THE EXECUTION OF THE NEXT 5 INSTRUCTIONS 
R17 SHOULD CONTAIN 3 AND R4 SHOULD CONTAIN 0. 
174027 RRR2: STD ACO, (R7)+ TEST INSTRUCTION. 
RRR3: “4 3 THE STD INSTRUCTION SHOULD CHANGE THIS TO INC R4. 
R1 


R1 
003210 #RRREXP ,RO ;SEE IF THE DATA WAS OUTPUT CORRECTLY. 
003122 ARRR3,R2 
000004 #4 ,R3 
(RO) +, (R2)+ 
RRR25 ;BRANCH IF INCORRECT. 
7MAKE SURE R4 IS 0. 
;BRANCH IF R4& IS INCORRECT. 


SEE IF R1 IS CORRECT. 
BRANCH IF R1 IS INCORRECT. 


BR RRRDONE 
hin £4 ee pera PATTERNS USED TO SET UP THE OUTPUT BUFFER AT RRR3. 


INC R1 
INC R1 


INC R1 
pris IS_ THE DATA PUT IN ACO BEFORE EXECUTION OF THE STD. 
RRRTP2: INC R4 


INC 
han Le as THE EXPECTED DATA AT RRR3 AFTER EXECUTION OF THE STD. 
RRREXP: INC 


005201 
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011602 
032702 


006301 
160102 
010237 


104001 
104413 


000004 


000001 
003124 
036172 


001236 
003124 


001236 


003122 
003210 


003124 
003122 
003124 
177775 


001242 


e 3 
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001240 


001240 
001242 


001240 


001242 


T MODE 2, WITH GR7, TEST 
aio _— IN THE FDST FLOWS RESULTS IN AN ODD ADDRESS TRAP THROUGH 


MOV (sp) sR ;SEE IF THE TRAP WAS BECAUSE OF AN ODD ADDRESS. 
BNE RRR11 ;BRANCH IF YES. 
CMP Re, ARRRS+2 ZSEE IF THE TRAP OCCURRED AT THE TEST INSTRUCTION. 
BEQ R12 [BRANCH IF YE 


YES. 
JMP arc SPUR OTHERWISE REPORT A SPURIOUS TRAP THROUGH VECTOR 4. 
;REPORT A FAILURE_IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 
RRR11: MOV R2,a4$TMP2 

MOV #RRR3+2, aASTMPS 

CMP (SP)+, (SP) + 


1$: ERROR 1 ;BAD CONSTANT #2 + PC ODD ADDR. 
BR RRRDONE 

RRR12: MOV R2,a4$TMP2 
CMP (SP) +, (SP)+ 

1$: ERROR 1 :ODD ADDRESS TRAP 
BR RRRDONE z:WRONG MODE USED. 


REPORT DATA INCORRECT: 

RRR25: MOV #RRR3 , AAS TMP3 
MOV MRRREXP , @ASTMPS 

1$: ERROR 1 :BAD DATA BUT GR7 FAIL 
BR RRRDONE 


REPORT PC INCORRECT MODIFIED DURING THE EXECUTION OF 7 ee tact 
:MODE . THE PC SHOULD HAVE BEEN INCREMENTED BY 2 BUT IT WASN 

USE _R1 AND R4 TO COMPUTE THE ACTUAL ACTION THAT WAS. TAKEN ON’ THE PC. 
RRRIS: MOV ARRR3+2 , AASTMPS 


TST R4 71S R4& CLEAR. 
BEQ 1$ 
5 ARRR3 , AAS TMPS 
1$: MOV #RRR3+2,R2 
ADD #-3,R1 
ASL R1 
SUB R1,R2 
2 MOV R2,a4$TMP4 
3$: ERROR 1 ;BAD CONSTANT PC+ 
RRRDONE : 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
2 THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH pea (HAS 
THE USER TYPED CONTROL S? 
FREER EERE KEE ERE EEE EERE EKER EERE KEKE ERE 
: TEST 5 FDST MODE 4 TEST 


:*THIS IS A TEST OF STD WITH FDST MODE 4. 


FERRER EERE ERE REE KEE EEE REE ERE RR ERE EKER REE EERE 


1815: SCOPE 


SSS1: 





SEQ 0030 


tS 
CJKDDA KEF11=A_ DIAG 4 2 MACY11 30A(1052) TT i PAGE 31 
CJKDDA.P11 20-JUN-79 11:22 T5 FDST MODE 4 TEST SEQ 0031 


SET UP THE LOOP ON ERROR ADDRESS. 
177777 MOV #-1,RO 3SET UP THE OUTPUT BUFFER. 
A Aca 


#10,R 

RO,(R1)+ 

R2,1$ 

— ENTER FLOATING DOUBLE MODE. 


003542 MOV Teoh aco :SET UP ACO. 

003562 000004 #SSS10,@MERRVECT ;SET UP FOR A TRAP TO 4. 

003442 001236 #SSS2,aASTMP2 

003532 #SSSA1,RO SET UP THE DESTINATION ADDRESS. 


laa TEST INSTRUCTION. 
003522 RO, ASSSBFO :SEE 1F RO WAS DECREMENTED PROPERLY. 
SSS15 BRANCH IF RO IS INCORRECT. 
003522 #SSSBFO0,RO WAS THE OUTPUT DATA CORRECT? 
003542 #SSSTP1,R1 


000004 #4 ,R2 
(RO) +,(R1)+ 
SSS20 BRANCH IF INCORRECT. 
R2,1$ 


177777 #-1,RO 71S THE REST OF THE OUTPUT BUFFER CORRECT, -1? 
003532 le 


000004 #4 ,R 
RO, (R1)+ 
$SS25 


— 

AAMAS 
BVRARANISCaVAnRWVsOSRS | 
NOUSWN—"OOONAUSWN—O “N 


:BRANCH IF INCORRECT. 


WANA AI MAMI II 


R2,2$ 

SSSDONE 
sTHIS IS THE OUTPUT DATA BUFFER. 
SSSBFO: =1 


BYRARAYASS 


SRW 
-oOvo 


: 
1 
; 
: 
] 
1 
; 
1 
; 
1 
1 
1 
1 
1 
1 
1 
. 
; 
1 
: 
1 
; 
1 
, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: 


MMMM 


177777 


S 
‘oO 


147250 
036147 


SSSTP2: 


177777 


DAMA AAAGI 
WONAURWN—O 


:1F AN ODD ADDRESS TRAP OCCURS OEE HERE : 
011600 §$S10: MOV (SP) ,RO SEE IF THE TRAP ACCURRED ON THE TEST INSTRUCTION. 
020027 003444 CMP RO. ASSS2+2 
001405 BEQ $11 BRANCH IF YES. 


ee mk a ad ed ed nd ed ed 
NAN a i ttyl 
uw 


VIS 
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003572 003446 CMP “of - beali 

003576 BEQ $11 BRANCH IF YES. 

003600 000137 036172 JMP Src SPUR OTHERWISE GO REPORT A SPURIOUS TRAP THROUGH 4. 
FAILURE IN FDST FLOWS RESULTED IN AN ODD ADDRESS. 

MOV RO, a#$TMP2 


001236 
ERROR 1 :FDST FORK X ODD AD RES. 
BR SSSDONE 


iy INCORRECTLY — 
001242 RO, MP4 


aT 
003522 001240 MOV #SSSBFO, a#STMP3 
1$: _ :RO NOT DECRE PROP 


REPORT OUTPUT DATA INCORRECT: 
012737 003522 001240 SSs20: MOV ASSSBF 0, aS TMP3 
012737 003542 001242 MOV ASSSTP1 , a#STMPS 
onceey 1$: ERROR 1 BAD DATA 


BR SSSDONE 

012737 003532 001242 SSS25: MOV ASSSA1 , @ASTMPS 

012737 003552 001240 MOV ASSSTP2 , aASTMP3 

104001 cciooe ERROR 1 DATA BAD OUTSIDE TARGET AREA 

104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FI IR TI KKK EERE KEKE EEK EEK 


: TEST 6 FDST MODE 3 TEST 
j*THIS IS A TEST OF FDST MODE 3 USING STD. 


FI RRR KERR EKER EEK KEKE EEK EEK KERR KEK KK 


000004 1816: SCOPE 


TTT1: 
104414 ;SET UP THE LOOP ON ERROR ADDRESS. 
004014 MOV ATTTBFO,R1 :SET UP THE OUTPUT DATA BUFFER, 
177777 #-1,R0 
000013 #13,R2 
: ~ ghee 


R2,1$ 
004014 004030 ATTTBFO,@ATTTA2 
000200 #200,R0 


S 


ENTER DOUBLE FLOATING MODE. 


004040 MO tno) ae RO SET UP ACO. 

004050 000004 #TTTIO,a#ERRVECT ;SET UP FOR TRAPS TO 4. 

000006 001236 TTT2,a4$TMP2 

004030 #TTTA2,RO ;SET UP THE DESTINATION ADDRESS. 


174030 : ACO,a(RO)+ TEST INSTRUCTION. 
020027 004032 RO,ATTTA2+2 SEE IF RO WAS INCREMENTED CORRECTLY. 


ke ee eed od 8 od od 


KRARAAAARAO 
ceed ed aed eed ed ed eed od 
CONAWSWA oO 
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037475 


011602 


012737 
012737 
104001 


104413 


004014 
004040 
000004 


003762 
003764 
036172 


001236 
001242 
004032 001240 


004014 001240 
004040 001242 


H 3 
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FDST MODE 3 TEST SEQ 0033 
TTT15 BRANCH IF INCORRECT. 
ATTTBFO,R1 CHECK THE OUTPUT DATA BUFFER. 
ATTTTP1,R2 
#4 ,R3 
(R1)+,(R2)+ 
TTT20 
R3,TTT3 
TT' DONE 


sTHIS IS THHE OUTPUT DATA BUFFER: 
TTTBFO: =1 


BRANCH IF NOT CORRECT. 


=] 
TTTTP1: 44 45 
141516 
71727 
37475 
; TRAP THROUGH VECTOR 4 TO HERE. 
TTT10: MOV SP) ,R2 
R2,ATTT2+2 
T1711 


SEE IF THE TRAP ADDRESS IS THAT OF THE TEST INSTRUCTION 
BRANCH IF YES. 


R2,ATTT2+4 
TTT11 BRANCH IF YES. 
a4CPSPUR ‘OTHERWISE GO REPORT A SPURIOUS TRAP TO 4. 


sREPORT A FAILURE IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP. 
MOV R2,a4$TMP2 


TUTT32 
CMP (SP)+, (SP) + 
ERROR 1 ;BET FDST X ODD ADR 
BR TTTDONE 


ies eon 


RO, a4 
MOV PITTA, SWSTMP3 
ERROR 1 RO NOT INCREMENT PROPERLY 
BR TT TDONE 


INCORRECT OUTPUT DATA: 
MOV ATTTBFO,a#$TMP3 

MOV ATTTTP1 ,@#$TMP4 
OR 1 BAD DATA 


:GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?). 
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FDST MODE 5 TEST 
- 
:*THIS IS A TEST OF FDST MODE 5 USING STD. 
* te 


* 
CLARE KR RERERRREEEE RE RRARKKEREEREEEREEEEREKEEREERREK EE 


TST7 


UUU1: 
;SET UP THE LOGP ON ERROR ADDRESS. 
7SET UP THE OUTPUT DATA BUFFER. 


1 
sENTER DOUBLE FLOATING MODE. 
;SET UP ACO. 

(RO) ,ACO 

ere. jy ale ;GET READY FOR ANY TRAPS TO 4. 


000004 
001236 UUU2 , a#$T 
MOV MUUUA2 ,RO :SET_UP THE DESTINATION ADDRESS. 

ACO,a-(RO) TEST INSTRUCTION. 
RO ,AUUUA2=2 WAS RO DECRIMENTED PROPERLY? 
UUU BRANCH IF RO IS INCORRECT. 
MUUUBF 0 ,R1 WAS THE DATA OUTPUT CORRECTLY? 
MUUUTP1 ,R2 


#4 ,R3 
(R1)+,(R2)+ 
UUU20 
R3,UUU3 
UUUDONE 


BRANCH IF DATA IS INCORRECT. 


:THIS IS THE OUTPUT DATA BUFFER 
UUUBFO: =1 


26273 
031323 031323 
:1F A TRAP TO 4 OCCURS COME HERE. 
011602 UUU10: MOV (SP) ,R2 :SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
020227 004232 ' R2,#UUU2+2 
001405 UUU11 


BRANCH IF YES. 
020227 004234 Re , MUUU2 +4 
001402 yuuT1 BRANCH IF YES. 


SAAN 
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000137 
010237 
022626 
104001 
000416 


010037 
012737 
104001 
000407 
012737 
012737 
104001 


104413 


036172 
001236 


091242 
004 302 


004264 
004310 


000200 
004534 


177777 
000004 


004554 
004544 


004476 
ta 


00000 

005701 
176633 
004534 


004544 
000004 


MACY11 


001240 


001242 
001240 


000004 


001236 


J. 3 
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17 T MODE 5 TEST 


@4CPSPUR OTHERWISE REPORT A SPURIOUS TRAP TO 4. 
;REPORT PAT LURE OF FDST RESULTED IN AN ODD ADDRESS TRAP TO 4. 
UUU11: MOV R2,a4$TMP2 


CMP (SP)+, (SP) + 


1$: ERROR 1 ;BET FDST X ODD ADR 
BR anette 
;REPORT - a INCORRECT. 
UUU15: RO, aS TMP4 
MOV HUUUA2+2 , aASTMP3 
1$: ERROR 1 RO NOT INCREMENT PROPERLY 
BR UUUDONE 


REPORT BAD DATA, 
UUU20: MOV MUUUBF 0 , AAS TMPS 
MOV AMUUUTP 1 , a#$STMPS 


1$: ERROR 1 :BAD DATA 
UUUDONE : 
RSE TUP :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 


THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FREER ERE REE REE REE REE EERE REE REE RERREREERE REE EE 


: FEST 10 FDST MODE 6, INDEX MODE, TEST 
:*THIS IS A TEST OF FDST MODE 6, INDEX MODE, USING STD. 


OSES: eRe OS EAT R MENT ROOT CO a NEO STS 


T8110: SCOPE 
vvv1 ; 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #200,.RO SENTER DOUBLE FLOATING MODE. 
MOV #VVVBFO,R1 :SET UP THE OUT PUT DATA BUFFER. 
MOV #4,R 
1$: MOV RO. (R1)+ 
SOB R2. 
MOV #VVV10. @#ERRVECT ;SET UP VECTOR 4 INCASE OF ERROR. 
MOV AVVVTPI RO :SET UP ACO. 
LDD (RO) acd 
MOV AVVV2, AAS TMP2 
MOV AVF 0-570", RO ;SET UP THE DESTINATION ADDRESS. 
vvv2: STD 476°5701 (RO) : TEST INSTRUCTION. 
CMP RO. AVVVBFO-5701 ;SEE IF RO WAS MODIFIED. 
BNE vvv15 ‘BRANCH IF INCORRECT. 
MOV #VVVBFO,R2  . :WAS THE OUTPUT DATA CORRECT. 
MOV AVVVIP1_R3 
MOV #4 RG 
1$: CMP (R2)+, (R3)+ 


BNE vvv20 BRANCH IF INCORRECT DATA, 


SEQ 0035 
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077405 R4,1$ 
444 VVVDONE 
VVVBFO: 


~F 


VVVTP1: 


ae HERE AFTER A rae THROUGH Seer 4. 
VV10: MOV (SP) ,R SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 
004500 ed e AVWV2+2 


;BRANCH IF YES. 

004502 Re. aes 

v11 sBRANCH IF YES. 
036140 JMP SHEP SPUR OTHERWISE GO REPORT A a TRAP TO 4. 

; FAILURE OF FDST RESULTED IN AN ODD ADDRESS TRAP TO 4 

010237 001236 : MOV R2,a4$TMP2 
022626 CMP (SP) +, (SP)+ 
104001 : ERROR 1 :FDST FORK X ODD ADD 
000416 BR VVVDONE 


: 3 Neetat 
001242 : RO, a#$TMP 
176633 001240 WVWWBFO-5701, a4$TMP3 
1 ERROR 1 :RO MODIFIED! 
BR VVVDONE 


INCORRECT DATA, 
012737 004534 001240 V AVVVBF 0, a4 $TMP3 
Aye 004544 001242  hehathiceataiatde 


eit totic RP Re ah 


1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


OO Cd Cd OO Od C0 Co CD C0 Od Co 


Oe ee eee 
SOGNAUSWN oO 


BAD DATA 


104413 :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH a (HAS 
THE USER TYPED CONTROL G?) 


SF EERE EERE EERE 


s*TEST 11 FDST MODE 7, INDEX DEFERRED MODE, TEST 

** 

s*THIS IS A TEST OF FDST MODE 7, INDEX DEFERRED MODE, USING STD. 
** 


PPETITITITITTT TTT TTT TTT ELET TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
TST11: SCOPE 
WWW : 
;SET UP THE LOOP ON ERROR ADDRESS. 
SENTER DOUBLE FLOATING MODE. 


SET UP THE OUTPUT DATA BUFFER. 
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005026 
005006. 


004740 
177115 
000001 
004776 
005701 
177115 
004776 


005006 
000004 


co 
Ww 
Oo 


SEERREREES 


177777 


011602 


070237 
022626 
104001 
000416 
010037 001242 
012737 177075 
104001 

000407 


012737 
01.2737 
104001 


MACY11 shame 
T11 


1$: 
000004 


001236 


005016 


001240 


004776 001240 
005006 001242 


a 
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RO. (R1)¢ 
#WilW10,@#ERRVECT ;SET UP FOR TRAPS TO 4. 
AWwWTP1 RO :SET UP ACO. 

(RO) ,ACO 

AWW? , DASTMP2 

ra -5701,RO ;SET UP THE DESTINATION ADDRESS. 
WWF 0, OM WWF 
ACO,@5701 (RO) 
RO, AWWWBF 1-5701 
WwW 5 


AWWWBFO ,R2 
MWWWTPT RS 


M4 RS 
(R2)+,(R3)+ 
WwwW20 


TEST 


1 
TEST INSTRUCTION. 
21S - CORRECT? 
; BRAN 


ANCH IF INCORRECT. 
[WAS THE DATA OUTPUT CORRECTLY? 


BRANCH IF DATA IS INCORRECT. 


TO HERE. 
( SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 


BRANCH IF YES. 

: CH IF YES. 
JMP a4#F PSPUR OTHERWISE GO REPORT SPURIOUS TRAP TO 4 
FAILURE OF FDST FORK RESULTED IN AN 2DD ADDRESS TRAP TO 4. 
MOV R2,aA4STMP2 
CMP (SP)+, (SP)+ 
ERROR 1 
BR WWD ONE 
RO MODIFIED. 

MOV RO, a4$TMP 


fukhiBFO-5701, a4$TMPS 
zRO MODIFIED! 


zFDST FORK X UDD ADD 


Vv 
ERROR 
BR WWWDONE 
DATA INCORRECT 
MOV MWWWBF 0, aS TMP 
- ramen 2 @4$TMP4 


MOV 
ERROR :BAD DATA 


SEQ 0037 
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CJKDDA.P11 20-JUN-79 11:2 


g 


WWWDONE : 
104413 RSE TUP 3GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


CLARE RRR EERE EKER ERE ERE KEKE 


*TEST 12 STCFD TEST 

+ 

7*THIS IS A TEST OF THE STCFD INSTRUCTION. 
*% 


o 
5 ERE EERE EEE 


000004 TST12: SCOPE 


;AC=0 

XXX1: 
104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
004767 000330 JSR PC,STCFDS 
000000 3AC 


BESRSaN8s 


1$: 


SIVVSsessess 
SOMVAnRW=O 


2$: zRES 


000 


i a kd dt a oh 
00 

Mmnn 

WN 


3$: ERROR RES. 


4 | Coooooo°0°0oo 


4$: :FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


TERROR FPS. 
5$: 1 :FDFL<=--FDFLXST 767 


;BUT EZBI X ST560 TO 061 INTO 261 


:SET UP THE LOOP ON ERROR ADDRESS. 
ares 


RR 
Wi 


RES 


tt 23 


ERROR RES. 


RARE 
Whoo 


a ot ot ot ot od 
Ww 


00 
rs 


:FPS BEFORE EXECUTION, 
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zFPS AFTER EXECUTION. 


sFEC 
:ERROR FPS. 
3X11(1,0)<=-=0 X ST766 


040000 
177777 


SET UP THE LOOP ON ERROR ADDRESS. 
vonscsinoatlage™ 


REPLLEARERGBSS 


:RES 
ERROR RES. 


3FPS BEFORE EXECUTION. 
ree AFTER EXECUTION. 


ERROR FPS. 
sBUT OPIC X ST251 


;BUT EZBT X ST421 


SET UP THE LOOP ON ERROR ADDRESS. 


000124 J PC,STCFDS 
: 3AC 


zRES 
ERROR RES. 


:FPS BEFORE EXECUTION. 
rer AFTER EXECUTION, 


TERROR FPS. 
:BUT FD IN ROUND X $T113 
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XXX5: 


— 
R 
™~ 
— 
s 


:SET UP THE LOOP ON ERROR ADDRESS. 


Oo 
N 


PC, STCFDS 
sAC 


1$: 


2$: ! :RES 


ed aed ad ad ee ed 
OWS Awa 
at aa and od ed cd 
NSUIONS 


es 


3$: ERROR RES. 


0 
4$: 7FPS BEFORE EXECUTION. 
ZFPS AFTER EXECUTION. 


FEC 
TERROR FPS. 
5$: on ;BUT ENBT X ST567 OR BAD SIGN ST460 


ERROR 1 
6$: XXXDONE 


sTHIS SUBROUTINE, STCFDS, IS USED TO SET UP THE OPERANDS, EXECUTE 
: THE STCFD INSTRUCTION AND CHECK THE RESULTS. A CALL 
;TO IT IS MADE THUS: 


PC ,@ASTCFD 

WORD X AC _OPERAND 

X EXPECTED RESULT 

X ERROR RESULT 

x FPS BEFORE EXECUTION 
X FPS AFTER EXECUTION 
X 

xX 

1 

C 

1 


Z EXPECTED FEC 
OR FPS. 
iDATA ERROR. 


:FPS ERROR. 
;RETURN ADDRESS 


; THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE STCFD INSTRUCTION IS EXECUTED. 
THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COMPARED WITH FPSA IF THIS TOO IS CORRECT STCFDS RETURNS CONT ROL 
TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD STCFDS 
COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN LA da WILL RETURN 
TO THE ERROR CALL AT ERR2, OTHERWISE STCFDS ITSELF 
0 - IF THE RESULT OF THE 
“STCED IS_INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
;THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN STCFDS 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 


"a 


Be Bae Be Be Be Be Be 
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sRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCFDS WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


STCFDS: (SP)+,R1 PICK UP THE POINTER TO THE OPERANDS. 
000200 MOV + eases ENTER DOUBLE FLOATING MODE. 


R1,RO ;LOAD ACO. 
(RO) -ACO 


177777 MO 1,R0 FILL THE OUTPUT BUFFER WITH =-1'S. 
005742 astirr. R2 
000004 4,R3 


RO. (Ra) 
000030 MOV 30(R1) .RO :LOAD THE FPS. 
005534 MOV #2S, ,a4STMP2 
005742 MOV A#STCFT,RO :SET UP THE DESTINATION ADDRESS. 
: ACO, Ar ; TEST INSTRUCTION. 
R4 :GET THE FPS. 


R5 ZGET THE FEC. 
R1,R2 sSAVE THE DATA IN CASE OF ERROR. 
~ art Sai 


fd 


R2, a#STMPS 
001242 ASTCFT, ar$TMP4 
010437 R4, ASTM 
016137 000032 001252 32(R1), a 
010102 R1,R2 sCHECK THE RESULT. 
2702 000010 #10,R2 
005742 ASTCFT,R3 
000004 #4 RO 
(R2)+, (R3)+ 
15$ 
RO, 3$ 


32(R1),R2 
R2,R4 31S THE FPS CORRECT? 
20$ ‘BRAN ANCH IF FPS INCORRECT. 
R2 :IF EXPECTED FPS IS NEGAT IVE , THEN 
4$ GO AHEAD AND CHECK THE FEC 
36(R1),R5 
;BRANCH IF FEC IS INCORRECT. 
4$: 46(R1) SRETURN. 
sRESULT INCORRECT: 
15$: MOV R1 
#20,R2 
MSTCFT,R3 


#4,R 

16$: (R2)+,(R3)+ 
17$ ;BRANCH IF NOT ANTICIPATED. 
RO, 16$ 


000040 40(R1) z31F ERROR WAS ANTICIPATED RETURN. 
SOTHERWISE” REPORT RESULT INCORRECT HERE. 


BRANCH IF INCORRECT. 


°o 


SEE IF ERROR WAS ANTICIPATED. 


am a nd ed od = 0) od ow) 
ee ed ed a etd od 6 os 
DBNANnRWHAMOSs 


MOMPNMGMEMNMOMNNNNNoNoNNoNony 
Mrn 
mo 
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000036 001256 
001254 


177777 =177777 
177777 


104413 


000330 


047204 
177777 
177777 


STCFD T 


17$: 
18$: ERROR 1 ;DATA ERROR 
BR 4$ 


3;FPS INCORRECT: 

20$: CMP R4,34(R1) ;WAS THE ERROR ANTICIPATED. 
BNE 21$ ;BRANCH IF NOT ANTICIPATED. 
JMP 44(R1) IF IT WAS ANTICIPATED RETURN. 


ite FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 


22$: ERROR 7 sFPS X 
BR 4$ 


;REPORT oe INCORRECT: 

25$: 36(R1), 7 
mov ale astm 

268: ERROR 


BR is 
STCFT: <-1,°1,°1,-1 


XXXDONE : 
RSETUP :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


J KER KKK KKK KIKI KEK RAKE KERRIER EKER KK EEK KKK 


:#TEST 13 STCDF TEST 
j*THIS IS A TEST OF THE STCDF INSTRUCTION. 


<sideahineielaasi ical enh tia laine ae 


18113: SCOPE 


;AC=0 
YYY1: 


D 
za 


;SET UP THE LOOP ON ERROR ADDRESS. 
AC 


“wv 
zm 


PC, STCDFS 
1$: 


2s: RES 


3$: ;ERROR RES. 


Oooo! | CGOoOoOCoOoOC rn 


:FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION, 


sret 
ERROR FPS, 
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5$: — is sFDFL<===-FDFL X ST767 
ERROR 1 FPS INCORRECT. 


;SET UP THE LOOP ON ERROR ADDRESS. 
3;ACO 


PC,STCDFS 


sRES 
;ERROR RES. 


FPS BEFORE EXECUTION. 
HAS. AFTER EXECUTION. 


TERROR FPS. 
TEITHER ROUND FAILED OR WENT TO 766 X1(1.0)<===0 INTO 76 


;SET UP THE LOOP ON ERROR ADDRESS. 
7ACO0 


PC,STCDFS 


RES 
sERROR RES. 


:FPS BEFORE EXECUTION. 
ZFS AFTER EXECUTION, 
TERROR FPS, 


;BUT EZBT X ST421 TO 062 INTO 262 


SET UP THE LOOP ON ERROR ADDRESS. 


104414 
004767 000124 PC, STCDFS 
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077777 1$: : 3ACO 
2$: sRES 
1 
3$: , ;ERROR RES. 


j 
4$: :FPS BEFORF EXECUTION. 
FPS AFTER EXECUTION. 


sFEC 
;ERROR FPS. 
5$: 
;BUT FIV ST262 TO 123 INTO 103 
6$: 
;SET UP THE LOOP ON ERROR ADDRESS. 
000050 JSR PC, STCDFS 
1$: ! 7 7ACO 


2s: RES 
0 
3$: ZERROR RES. 


4$: 47200 FPS BEFORE EXECUTION. 
ree AFTER EXECUTION. 


ERROR F 
5$: :BUT FIV. 81262 FAIL TO 103 INT 123 


:BUT FLAG ST 147 X TO ST 361 INTO 365 
6$: BR YYYDONE 
; THIS SUBROUTINE, STCDFS, IS USED TO SET UP THE OPERANDS, EXECUTE 
; THE STCDF INSTRUCTION AND CHECK THE RESULTS. A CALL 
;TO IT IS MADE THUS: 
PC ,@ASTCFD 
- WORD AC OPERAND 
SEXPECTED RESULT 
ERROR RESULT 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


SEXPECTED FEC 
ERROR FPS, 


F 
X 
X 
X 
xX 
x 
x 
x 
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ERR1: page 1 ' DATA ERROR. 


CON 
ERR2: ERROR 1 :FPS ERROR. 
CONT: RETURN ADDRESS 


: THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

THE STCFD_INSTRUCTION IS EXECUTED 

:THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT Lan ay THE FPS IS 
[COMPARED WITH FPSA IF THIS TOO IS CORRECT STCFDS g hn CONTRO 

TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD STC 

:COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN oo WILL RETURN 
:TO THE ERROR CALL AT ERR2, OTHERWISE STCFDS ITSELF 

SREPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE ate tn OF THE 
:STCFD IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

:THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN STCFDS 

zWILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCFDS WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


012601 STCDFS: MOV (SP)+,R1 :PICK UP THE POINTER TO THE OPERANDS. 
000200 MOV ave RO sENTER DOUBLE FLOATING MODE. 


RO ;LOAD ACO. 
(RO) -ACO 


177777 RO sFILL THE OUTPUT BUFFER WITH -1'S. 
006576 ostepr, R2 
000004 #4 ,R3 

RO, (R2)+ 


R3,1$ 
000030 MO 30(R1) .RO ;LOAD THE FPS. 


R 

006370 001236 MOV #2$ ,AASTMP2 

006576 MO #STCDT RO :SET UP THE DESTINATION ADDRESS. 
ACO, (RO) TEST INSTRUCTION. 


:GET THE FPS. 
:GET THE FEC. 
SAVE THE DATA IN CASE OF ERROR. 


° 
. 
° 
° 
. 


AAS TMP 
001242 #STCDI. a#STMPS 
010437 a4$TMP7 
016137 000032 001252 BO tRI) aaSTMP10 
010102 R1,R2 sCHECK THE RESULT. 
2702 #10,R2 
#STCDT,R3 
#4 RO 
(R2)+, (R3)+ 
15$ 
RO, 3$ 


016102 32(R1) ,R2 
020204 R2,R4 31S THE FPS CORRECT? 


BRANCH IF INCORRECT. 
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001025 
005702 
100003 


026105 
001027 
161 


010102 
062702 


020461 
001002 
000161 


104001 
000751 


016137 
010537 
104001 
000742 
177777 
177777 


104413 


000034 
000044 


000036 
001254 


177777 


040000 
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001256 


177777 


20$ ;BRANCH IF FPS INCORRECT. 
R2 ;IF EXPECTED FPS IS NEGATIVE, THEN 
[GO AHEAD AND CHECK THE FEC. 


4$ 
34(R1),R5 

25$ sBRANCH IF FEC IS INCORRECT. 
4$: 46(R1) RETURN. 


RESULT INCORRECT: 
15$: MOV R1,R2 SEE IF ERROR WAS ANTICIPATED. 


#20,R2 
#STCDT, R3 
RO 
16$: (RE, (R3)+ 
17$ ;BRANCH IF NOT ANTICIPATED. 


RO, 16$ 
40(R1) 31F ERROR WAS ANTICIPATED RETURN. 
;OTHERWISE” REPORT RESULT INCORRECT HERE. 


17$: 
18$: ERROR 1 :DATA ERROR 
BR 4$ 


3FPS INCORRECT: 
20$: CMP R4,34(R1) sWAS THE yy oe ANTICIPATED. 
BNE 21$ ;BRANCH IF NOT ANTICIPATED. 
JMP 44(R1) 3IF IT WAS ANTICIPATED RETURN. 


S. FPS ERROR WAS NOT ANTICIPATED SO REPORT FPS INCORRECT HERE. 


22$: ERROR 1 FPS X 
BR 4$ 


sREPORT FEC INCORRECT: 

25$: MOV 36(R1) ,a#STMP12 
MOV RS, a4STMP11 

26$: ERROR ie 


BR 
STCDT: =-1,-1,-1,-1 


YYYDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
>THE USER TYPED CONTROL G?). 


SRR REE KERR KK ERR REE REE KEE REKEKEEEKEKEEEKK KEK 


:FTEST 14 STCFD WITH ILLEGAL ACCUMULATOR TEST 
}*THIS TEST STCFD WITH ILLEGAL AC 6. 


Py 
AE ETE LO EL NRO MRT NER eT IR Ie ee MI 


18114: SCOPE 


27271: 
PERR ;SET UP THE LOOP ON ERROR ADDRESS. 
+ £50000 RO ;DISSABLE. INTERRUPTS. 
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006622 012737 006630 001236 MOV #7772, aASTMP2 
0066 006 27Z7Z2: STCFD AC0,AC6 THIS TEST INSTRUCTION SHOULD CAUSE AN ERROR. 


R4 :GET FPS. 
R5 :GET FEC. 
R4 4140000 1S FPS CORRECT? 
22210 BRANCH IF INCORRECT FPS. 
21S FEC CORRECT? 
BRANCH IF INCORRECT. 
ZZZDONE 


FPS INCORRECT AFTER USE OF ILLEGAL ACCUMULATOR. 
: MOV R4, ZASTMPS 
001240 MOV #140000, a#STMP3 
1 ERROR 1 BUT FDST ST767 X TO 567 INTO 577 
BR ZZZDONE 


sREPORT FEC INCORRECT AFTER USE OF ILLEGAL ACCUMULATOR. 

010537 001242 22215: MOV R5,@4#$TMP4 

012737 000002 001240 #2, dASTMPS 

104001 1$: 1 sFEC<=-=-2 ST577 xX 

ZZZDONE : 

104413 :GO_ INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


SRE KR RRR KKK EERE EKER KKK EEE REE EERE EKER ERK EKER ERE EK 


: TEST 15 CLRD TEST 
j*THIS IS A TEST OF THE CRLF AND CLRD INSTRUCTIONS. 


seuunaihibtie didubeieidainiepniatiniliiiaennaiiadiaigiimmmeatinintemaeameiabanin 


18115: SCOPE 
AAB1: 
SET UP THE LOOP ON ERROR ADDRESS. 
007100 MOV MAABTP1 RO :SET UP OUTPUT BUFFER 
007070 MAABBF 0 ,R1 
000004 #4 ,R2 
(RO)+,(R1)+ 


R 
007070 :SET UP +t id aaa aiaty OPERAND ADDRESS. 
000213 MOV ° :SET UP FPS. 


R1 
006754 001236 MOV #2$ ,QASTMP2 
2 (RO) TEST INSTRUCTION, 


R5 
000004 MOV #4 ,R2 
007070 cy otha 


sGET FPS. 
SEE IF RESULT CLEAR, 0. 


;BRANCH IF RESULT INCORRECT, NOT O. 


R2,3$ 
000204 204, SEE IF FPS IS CORRECT. 
AAB3 BRANCH IF INCORRECT. 
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2459 007004 020027 007070 CMP RO, AAABBF 0 3 SEE id ROIS C re th 
2460 007010 001020 BNE AABS BRAN IF RO IS INCORRECT. 
sie 007012 000442 BR AABDONE 
2463 ;RESULT NOT 0, REPORT ERROR. 
2464 007014 012737 007070 001240 AAB2: MOV HAABBF 0, aA STMPS 
2465 007022 012737 007110 001242 MOV HAABTP2 ,aASTMPS 
2466 007030 104001 1$: ERROR 1 ;BAD DATA = 0 X 11+ZERO ST770 x 
art 007032 000432 BR AABDONE 
2469 ;REPORT FPS INCORRECT: 
2470 007034 010437 001242 AAB3: MOV R4 ,aASTMP4 
2471 007040 012737 000204 001240 MOV #204, a4$TMP3 
2472 007046 104001 1$: ERROR 1 ;BAD FPS 
ot 007050 000423 BR AABDONE 
2475 ;REPORT A INCORRECT. 
2476 007052 010037 001242 AABG: RO, a4$TMFS 
2477 007056 012737 007070 001240 mov HAABBFO, a4$TMP3 
2478 007064 104001 1$: ERROR 1 
ait 007066 000414 BR AABDONE 
2481 ;THIS IS THE TEST DATA BUFFER, OUTPUT DATA BUFFER. 
2482 007070 073475 AABBFO: 73475 
2483 007072 067707 67707 
2484 007074 127347 127347 
2485 007076 056770 56770 
2486 ;THIS IS THE DATA USED TO SET UP THE OUTPUT BUFFER. 
2487 007100 073475 TP1: 73475 
2488 007102 067707 67707 
2489 007104 127347 127347 
2490 007106 056770 56770 
2491 ;THIS IS THE EXPECTED DATA, RESULT: 
2492 007110 000000 AABTP2: 0 
2493 007112 000000 0 
2494 007114 000000 0 
2495 007116 000000 0 
2496 007120 AABDONE : 
2497 007120 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
2498 :SEE IF THE USER HAS EXPRESSED 
2499 ; THE DESIRE TO CHANGE THE SOFTWARE 
2500 ;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
34 7THE USER TYPED CONTROL G?). 
2503 III III III IOI III OIC OI TOIT ITO TOIT TOTTI 
2504 TRTEST 16 CLRD WITH ILLEGAL ACCUMULATOR TEST 
** 
3206 :*THIS IS A TEST OF CLRD WITH ILLEGAL AC7. 
2508 : RR RR ITI TOR TTC TC TSO TOT TTT IRR EERE RRR RRR RRR 
2509 007122 000004 TST16: SCOPE 
2510 007124 CCB1: 
2511 007124 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2512 007126 012700 040200 MOV #40200,R0 ;SET UP THE FPS, NO INTERRUPTS AND FD=1. 
2513 007132 170100 LDFPS R 
2514 0071 012737 007142 001236 MOV #CCB2,a4$TMP2 
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170407 


170204 
170305 
020427 


001004 
022705 
001010 


010437 
012737 
104001 
000406 


010537 
012737 
104001 


104413 


012737 
170707 


170204 
170305 


022704 
001004 


140200 
000002 


001242 
140200 


001242 
000002 


040200 
007242 


140200 
000002 
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001240 


001240 


001236 


49 
CLRD WITH ILLEGAL ACCUMULATOR TEST 
CCB: AC7 2 TEST INSTRUCTION. 


R4 ;GET FPS. 
R5 GET FEC. 
R4,4140200 31S THE FPS CORRECT? 
CCB10 ;BRANCH IF FPS IS INCORRECT. 
31S THE FEC CORRECT? 
[BRANCH IF FEC IS INCORRECT. 
CCBDONE 


INCORRECT FPS: 

MOV R4,a4#STMPS 

#140200, a#$TMP3 

1$: ERROR 1 ;BUT FDST ST 700X TO 607 INTO 677 
BR CCBDONE 


sREPORT INCORRECT FEC: 
CCB15: MOV R5 ,aASTMPS4 
. #. a4$TMP3 
sFEC<=--2 ST 677 xX 


:GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?). 


FREER KKK KEKE KKK RE KKK KEKE ERE KKK KEKE KERR 


:#TEST 17 NEGF, ABSF AND TSTF SOURCE MODE 0 WITH ILLEGAL AC7, TEST 


THIS IS A_ TEST OF THE SPECIAL 
:*DEST FLOWS USING THE NEGD INST 
*WITH MODE ZERO AND ILLEGAL 


7 *AC7. 
28 
CS KKK EEE EEK EKER ERE KEKE KKK EEK EERE EK 


TST17: SCOPE 
VVB1: 


$: 
cated 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 
MOV #40200,R0 :SET UP THE FPS, FID=1 AND FD=1. 
ie 0 


R 
AVVB2 ,aASTMP2 
AC7 TEST INSTRUCTION. 


R4 GET FPS. 
R5 GET FEC. 


#140200,R4 31S FPS CORRECT? 
VVB10 ;BRANCH IF FPS IS INCORRECT. 
#2,R5 21S FEC CORRECT? 

VVB15 BRANCH IF FEC IS INCORRECT. 
VVBDONE 


REPORT INCORRECT FPS: 
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012737 
010437 
104002 
000406 


012737 
010537 
104002 


104413 


172410 
vigte 

170100 
012737 
170700 
170205 
012700 


174010 
012701 
005720 
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140200 001240 
001242 


000002 
001242 


000200 
007476 
007506 


000201 
007370 


000200 
007516 


000004 


000204 


001240 


001236 


4 
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- ABSF AND TSTF SOURCE MODE 0 WITH ILLEGAL AC7, TEST 


;FPS BAD 


sFEC BAD 


:GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


FEAR A REE EEA 


Dae ¥y 11:39 
VVB10: MOV #140200, AS TMP3 
MOV R4 ,a4$STMP4 
1$: ERROR 2 
BR VVBDONE 
REPORT FEC INCORRECT: 
vvB15: MOV #2 ,aASTMPS 
MOV R5,a4$STMP4 
1$: ERROR 2 
VVBDONE : 
RSETUP 
:HIEST 20 


:sTHIS 1S A TEST THE NEGF, 


NEGF, ABSF AND TSTF SOURCE MODE 0 TEST 
ABSF AND TSTF 


OWS. THE NEGD INSTRUCTION 


OURCE FL 
seiS USED TO TEST MODE 0 


sistas eahthaidaieidndacaeasidlaaaeaianeaeanainneiesdimemaitiaiianmnatisideteaimeal 


18120: SCOPE 
DDB1: 
LPERR 
V #200,RO 
LDFPS R 
MOV #DDBTP1.RO 
LDD (RO) ,ACO 
CLR RO 
LDFPS RO 
V #DDBTP2,RO 
LDF (RO) ACO 
V #201.R0 
LDFPS R 
V ADDB2, a#STMP2 
DDB2: NEGD ACO 
STFPS RS 
V #200,RO 
LDFPS RO 
MOV #DDBBFO,RO 
- STD ACO, (ROS 
MOV #4,R1 
1$: TST (RO) + 
BNE DDBS 
SOB R1 
CMP F64°RS 
BNE DDB6 


SET UP THE LOOP ON ERROR ADDRESS. 
SET FD MODE. 


SET UP ACO. 
SET ACO = 0 
;CLEAR THE FPS. 


LOAD ACO TO BE A FLOATING 0. 
:SET,ACO=ZERO 


SET FD MODE. 


TEST INSTRUCTION. 


:GET FPS. 
SET FD MODE. 


GET THE RESULT OUT OF ACO. 


SEE IF THE RESULT IS CORRECT. 


s;BRANCH IF THE RESULT IS INCORRECT. 


71S THE FPS CORRECT? 
;BRANCH IF THE FPS IS INCORRECT. 


SEQ 0050 


4 
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000442 BR DDBDONE 


RESULT INCORRECT, REPORT FAILURE: 
012737 007506 001242 DDB5: MOV #DDBTP2,aW$TMP4 ;EXPECT DO 
012737 007526 001240 MOV #DDBTP3,a#$TMP3 ;PREV FO IMPURE 
012737 007516 001244 MOV #DDBBFO,a4$TMPS ;GOT 
104002 1$: ERROR 2 
000427 BR DDBDONE 


: FPS INCORRECT: 
012737 000204 001240 DDB6: wad 4204 , AAS TMPS 
001242 R5 ,aASTMPG 
1$: ERROR 2 
BR DDBDONE 


; THESE AR T DATA TABLES AND AN OUTPUT BUFFER. 
DDBTP1: 


DDBTP2: 


oOoo0o-- > = 


-1 
-1 
-1 
-1 


[2 INITIALIZE THE FPS AND STACK; AND 


so 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FERRER KEKEEKEKEEEEEKEEEEEKEEKEKEEKEKEEREKEEKEKEEKEKEEEEKEKEK 


: TEST 21 NEGF, ABSF AND TSTF SOURCE MODE 1 TEST 


; THIS IS A TEST THE NEGF, ABSF AND TSTF 
:*SOURCE FLOWS. THE NEGD INSTRUCTION 
#18 USED TO TEST MODE 1 


eT Ce A OR CRT LE AS 


18121: 


EEB1: 
ERR SET UP THE LOOP ON ERROR ADDRESS. 
" 007652 3s beg f * :SET UP THE DATA BUFFER. 
1 007702 #EEBBF 1 
0000 #4 ,R2 


SEQ 0051 
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012021 : (RO) +, (R1)* 
#200, RO :SET FD MODE. 
PEERS BBF1,RO :SET UP THE OPERAND ADDRESS. 
#EEB2 ,aa#$TMP 


ay 
MOV meEBI0, @WERRVECT ;SET UP VECTOR 4 IN CASE OF ERROR. 
170710 : : TEST INSTRUCTION. 


170205 :GET FPS. 
SEE IF RESULT IS CORRECT. 


;BRANCH IF NOT CORRECT. 


RO, #EEBBF 1 ;1S RO CORRECT? 
EEB20 CH IF NOT CORRECT. 
#204,R5 z1S THE PS CORRECT? 

EEB25 ‘BRANCH IF NOT CORRECT. 
EEBDONE 


; THESE ARE_TEST DATA TABLES AND A BUFFER. 
EEBTP1: 177 


EEBTP2: 


0 
EEBBFO: 


EEBBF 1: 


177777 


: OCCURS COME HERE: 
011602 EFEB10: MOV (SP) ,R2 SEE IF THE TRAP OCCURRED ON THE TEST INSTR. 


R2 ,AEEB2+2 
;BRANCH IF YES. 
Ree HEEB +4 


:BRANCH IF YES. 
JMP PSPUR sOTHERWISE GO REPORT A SPURIOUS TRAP TO 4. 
: A FAILURE” IN THE FDST FLOWS RESULTED IN AN ODD ADDRESS TRAP TO 4. 
022626 1$: CMP (SP)+ sRESET THE STACK. 
010237 MOV AS asin? 
104002 2$: ERROR 2 :0DD ADRES 
000430 BR EEBDONE ‘BUT FDSTX IN ST 771 


;REPORT RESULT INCORRECT. -** 
012737 007662 001242 EEB15: MOV #EEBTP2 , aa STMP4 
012737 007652 001240 _ MOV MEEBTP1 ,a#STMPS 
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CJKDDA.P11 20-JUN=79 11:22 T21 NEGF, ABSF AND TSTF SOURCE MODE 1 TEST SEQ 0053 
2739 007762 012737 007702 001244 MOV MEEBBF 1, aa $TMP5S 
2740 007770 104002 1$: ERROR 2 BAD DATA K11*0 ST 312x 
oh 007772 000415 BR EEBDONE 
2743 :RO_ INCORRECT: 
2744 007774 012737 007702 001240 EEB20: MOV #EEBBF 1, Te 
2745 010002 010037 001242 MOV RO, a#$™M 
2746 010006 104002 1$: ERROR 2 :RO BADX 
sree 010010 000406 BR EEBDONE 
2749 REPORT FPS INCORRECT: 
2750 010012 010537 001240 FEB25: MOV R5,a4$TMP3 
2751 010016 012737 000204 001244 MOV #204, a#STMPS 
es 010024 104002 1$: ERROR 2 sFPS X 
2754 010026 EEBDONE : 
2755 010026 = 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
2756 ‘ 7SEE IF THE USER HAS EXPRESSED 
2757 : THE DESIRE TO CHANGE THE SOF TWARE 
2758 [VIRTUAL CONSOLE SWITCH ta (HAS 
ee THE USER TYPED CONTROL G? 
2761 4 CUA RARER ARERR REE RARE ERE RRERERREREEERRER ERE RERR EEE 
184 :*TEST 22 NEGF, ABSF AND TSTF SOURCE MODE 2 TEST 
2764 aTHIS IS A TEST THE NEGF, ABSF AND TSTF 
2765 ;*SOURCE FLOWS. THE ABSD INSTRUCTION 
ag :*1S USED TO TEST MODE 2 
2768 SRAEEAAAAEAAAAAAAAREEEAAAAAEERARAAARERERRARAEEREARAREREREEREEREREEE 
ta 4 010030 00004 TST22: SCOPE 
2771 010032 FFBI: 
2772 010032 104414 LPERR SET UP a LOOP ON ERROR ADDRESS. 
2773 010034 012700 010142 MOV #FFBTP1,RO SET UP THE DATA BUFFER. 
2774 010040 012701 010172 MOV #FFBBF1,R1 
2775 010044 012702 000004 MOV #4 ,R2 
2776 010050 012021 1$: MOV (RO)+,(R1)+ 
2777 010052 077202 SOB Re, 
2778 010054 012700 000200 MOV #200,RO0 SET FD. 
2779 010060 170100 LDFPS RO 
2780 010062 012700 010172 MOV #F FBBF1,RO :SET UP THE OPERAND ADDRESS. 
2781 010066 012737 010102 001236 MOV #FFB2, aASTMP2 
Sat 010074 012737 010202 000004 MOV #FFBIO,a@#ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 
¢oee 010102 170620 FFB2:  ABSD (RO)+ TEST INSTRUCTION. 
2786 010104 170205 STFPS = R5 GET FPS, 
2787 010106 012701 010172 MOV #FFBBF1,R1 CHECK RESULT. 
2788 010112 012702 000004 MOV #4 ,R2 
2789 010116 005721 1$: TST (R1)+ 
2790 010120 001046 BNE FFBIS ;BRANCH IF INCORRECT. 
744 010122 077203 SOB R2,1$ 
2793 010124 020027 010202 CMP RO,AFFBBF1*10 ;1S RO CORRECT? 
2794 010130 001055 BNE FFB20 ;BRANCH IF INCORRECT. 


CJKDDA KEF11=A_ DIAG PART 2 
CJKDDA.P11 


010132 
010136 
010140 


010142 


010220 
010224 


010314 


010316 
010316 


022705 
001061 


177777 


011602 
020227 
001405 
020227 
001402 
000137 


022626 
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000204 


010104 
010106 
036172 


001242 


001240 
000204 


c 3% 
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001240 
001242 
001244 


001240 


001244 


ABSF AND TSTF SOURCE MODE 2 TEST 


CMP #204 R5 :1S THE FPS CORRECT? 
BNE FR25 “BRANCH IF INCORRECT. 
BR F FBDONE 


tint ARE TEST DATA TABLES AND DATA BUFFER. 
FFBIP1: 177 


FFBIP2: 
FFBBFO: 


FFRBF 1: 


Yd A TRAP TO 4 og: COME HERE. 
FFB10: MOV (SP) ,R2 

Re, AF FR2+2 

1$ ;BRANCH IF YES. 


t AF FB2+4 
;BRANCH IF YES. 
or SPUR OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
FLOW FAILURE RESULTED IN A TRAP TO 4, 
(SP)+,(SP)+ 
R2, aS TMP2 
2 ;ODD ADRES 


F FBDONE :BUT FDSTX IN ST 771 


RESULT INCORRECT: 

MOV #FFBTP2, a&$TMP3 

MOV #FFBTP1,a4$TMP4 

MOV #F FBBF 1; a#$TMP5 

ERROR 2 ;BAD DATA X11*0 ST 312x 
BR F FBDONE 


RO INCORRECT: 
MOV #F FBBF1+4,a4$TMP3 
MOV RO, a#$TMP4 
FRROR 2 :RO BADX 
BR F FBDONE 


;REPORT FPS INCORRECT: 
FFB25: MOV R5,a4$TMP3 
MOV #204, a4$TMP5 
1$: RROR 2 FPS x 


fF FBDONE : 
R 7GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 


sSEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


SEQ 0054 





CJKDDA 


-P11 


010320 
010322 


010372 
010374 


KEF11=A_DIAG PART ¢ 
722 


20-JUN=79 11 


012737 
170640 
170205 


001046 
077203 
020027 


177777 


010432 
010452 
000004 
000200 
010462 


010372 
010472 


010452 
000004 


010452 
000204 


D5 
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T22 NEGF, ABSF AND TSTF SOURCE MODE 2 TEST 


: THE DESIRE TO CHANGE THE SOF TWARE 
= VIRTUAL CONSOLE SWITCH wna (HAS 
: THE USER TYPED CONTROL G?) 


IT ITITI SII TITITITITTI TTT ITITITITITeTTTTTTTiTTTTTeTTT TTT TTT tte 


: TEST 23 NEGF, ABSF AND TSTF SOURCE MODE 4 TEST 
ieTHIS IS _A_TEST THE NEGF, ABSF AND TSTF 

s*SOURCE FLOWS. THE “ws INSTRUCTION 

:*1S USED TO TEST MODE 4 


_ sbaheihtendirianiniaamtimeiiiannaaenenintnameaennibainan 


78123: SCOPE 
GGB1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
#GGBTP1,RO ;SET UP THE DATA BUFFER. 
#GGBBFO,R1 
#4,R2 
(RO) +, (R1)+ 
R2,1$ 
ata sSET FD. 
#GGRBF1,RO ;SET UP THE OPERAND ADDRESS. 
001236 #GGB2 , AASTMP2 
000004 CBO a @MERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 
;TEST INSTRUCTION. 
GET FPS. 
;CHECK RESULT. 


BRANCH IF INCORRECT. 


RO, AGGBBF 0 :1S RO CORRECT? 
GGB20 [BRANCH IF INCORRECT. 
#204 ,R5 ‘IS THE FPS CORRECT? 
GGB25 [BRANCH IF INCORRECT. 
GGBDONE 


; THESE ARE TEST DATA TABLES AND DATA BUFFER. 
GGBTP1: 177 


117273 
147576 
177071 


SEQ 0055 
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177777 -1 
177777 -1 


;1F A TRAP TO 4 OCCURS COME HERE. 
011602 GGB10: MOV (SP) ,R2 :SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
010374 R2 ,AGGB2+2 
1 BRANCH IF YES. 


010376 ee 
1$ sBRANCH IF Y 


; YES. 
010510 000137 036172 JMP @4CPSPUR ; OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
;REPORT FLOW ae RESULTED IN A TRAP TO 4. 
010514 022626 1$: CMP (SP)+, (SP) 
010237 001236 R2, av$TMP2 
104002 2$: 2 ODD ADRES 
010524 000430 BR GGBDONE :BUT FDSTX IN ST 771 


REPORT RESULT INCORRECT: 
010526 012737 010442 001240 GGB15: MOV AGGBTP2 , a#$TMP3 
0105 012737 010432 001242 #GGBTP1 ,a#$TMP4 
012737 010452 001244 #GGBBF 0; a#$TMPS 
104002 1$: 2 s:BAD DATA X11*0 ST 312x 
010552 000415 GGBDONE 


;REPORT - INCORRECT: 
010554 012737 010452 001240 GGB20: + A ere 
010562 010037 001242 
010566 104002 : me RO BADX 
010570 000406 EGRDONE 


: FPS INCORRECT: 
010572 010537 001240 GGB25: MOV RS, a#$TMP3 
010576 012737 000204 001244 MOV #204, a4STMPS 
010604 104002 : ERROR 2 sFPS X 


010606 : 
010606 104413 RSETUP tae Mh a THE FPS AND | STACK; AND 


: HE SOF E 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


CIO III III IIIT IIIOII IORI TOTO TOT TTR A OTR NTRATIAAI 


:HTEST 24 NEGF, ABSF AND TSTF SOURCE MODE 3 TEST 


THIS IS _A_TEST THE NEGF, ABSF AND TSTF 
:*SOURCE FLOWS. THE ABSD INSTRUCTION 
se1S USED TO TEST MODE 3 


ROE RP OR OTE AD Oe LC RT TEE LOT 


18124: SCOPE 


HHB1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
010722 MOV #HHBTP1,RO ;SET UP THE DATA BUFFER. 
010752 #HHBBFO,R1 
000010 #10,R2 
(RO) +, (R1)+ 
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CJKDDA.P11 


2963 


_— os — 3 od 


SSSSSSSSS 
ad cad aad cad aed eh ce ee ed 
DBNAWUSWR—O 


010720 


010722 


20-JUN-79 11:22 


077202 
0 


012737 
170630 
170205 


177777 
177777 


011602 
0 


000200 
010762 


010662 
010772 


010752 
000004 


010764 
000204 


010752 
177777 
000000 


010664 
010666 
036172 


001236 
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0 
0 


1 


01236 
00004 


77777 


000000 


ooo 


01240 
01242 
01244 


ABSF AND TSTF SOURCE MODE 3 TEST 
SOB 
MOV #560 RO :SET FD. 
LDFPS RO 
V #HHBBF 1 RO :SET UP THE OPERAND ADDRESS. 


MO 
MOV AHHB2 , aS TMP 
MOV #HHB10,a4ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 


HHB2: ABSD @(RO)+ 7 TEST INSTRUCTION. 


STFPS RS :GET FPS. 
MOV #HHBBFO,R1 : CHECK RESULT. 
MOV #4 R2 

1$: TST (Ri)+ 
BNE HHB15 :BRANCH IF INCORRECT. 
SOB R2,1$ 
CMP RO,AHHBBF1+2 1S RO CORRECT? 
BNE HHB20 [BRANCH IF INCORRECT. 
CMP #204,R5 ‘IS THE FPS CORRECT? 
BNE HHB25 ‘BRANCH IF INCORRECT. 
BR HHBDONE 

; THESE ARE TEST DATA TABLES AND DATA BUFFER. 

HHBTP1: 177 
147576 


177071 

107576, HHBBFO,-1,-1,-1 
HHBTP2: 0,0,0.0 
HHBBFO: =1 


HHBBF1: =1 


IF A TRAP TO 4 he COME HERE. 
HHB10: MOV (SP) 
CMP Re, wB24 2 


BEQ 1$ BRANCH IF YES. 

CMP Ree MHHB2 +4 

BEQ ;BRANCH IF YES. 

JMP aecP SPUR ; OTHERWISE GO ~y 8 SPURIOUS TRAP TO 4. 
;REPORT AN FDST FLOW FAILURE RESULTED IN A TRAP TO 4 
1$: CMP (SP) +, (SP)+ 

MOV R2, ans TMP? 
2$: ERROR 2 :ODD ADRES 

BR HHBDONE sBUT FDSTX IN ST 771 
REPORT RESULT INCORRECT: 
HHB15: MOV 4#HHBTP2 , AASTMP3 


MOV MHHBTP1 , a#$TMPS 
MOV #HHBBF 0; aa'$TMPS 
1$: ERROR 2 BAD DATA X11*0 ST 3127 


:SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


SEQ 0057 
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000415 BR HHBDONE 


;REPORT RO INCORRECT: 

012737 010764 001240 HHB20: MOV MHHBBF 1 +2, AAS TMPS 

010037 001242 MOV RO, aA#STMP4 

104092 1$: ERROR 2 :RO INCORRECT. 
000406 BR HHBDONE 

REPORT FPS INCORRECT: 

537 001240 HHB25: MOV RS ,a#$TMP3 

737 000204 001244 MOV #204 ,a#$STMPS 

002 1$: ERROR 2 3 FPSX 


HHBDONE : 
104413 RSETUP :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 


CF I RRR RRR REE ERE ERK ERE REE EEEREKK KEE 


i*TEST 25 NEGF, ABSF AND TSTF SOURCE MODE 5 TEST 


* 
:*THIS IS A TEST THE NEGF, ABSF AND TSTF 
:*SOURCE FLOWS. THE NEGD INSTRUCTION 
:*IS USED TO TEST MODE 5 
* 


0G II II I IRR REE REE EEK EEKK EK EEE 


000004 TST25: SCOPE 


I]B1: 
104414 ;SET UP THE LOOP ON ERROR ADDRESS. 
012700 011222 MO #IIBTP1,RO ;SET UP THE DATA BUFFER. 
011252 #1 IBBFO,R1 
000010 #10,R2 
(RO) +, (R1)+ 


Re, 
000200 MOV + jane SET FD. 
011264 MOV #1 IBBF1+2,R0 ;SET UP THE OPERAND ADDRESS. 
011162 001236 #11B2,aA4$TMP2 
012737 011272 000004 #1I1B10,a#ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 
170750 a-(RO) TEST INSTRUCTION, 
170205 R5 GET FPS 


011252 MOV #1 1BBFO,R1 ?CHECK RESULT. 
000004 #4 ,R2 


mw oO 


010 
012 
104 


oo C00 COCO 


RR RO 


oO 
_ 
oO 


NMNOKOKNM! 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
- 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 


LESS Mew sa 


SANGO 


0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


So 


:BRANCH IF INCORRECT. 


R2,1$ 
011262 21S RO CORRECT? 
11B20 BRANCH IF INCORRECT. 
000204 31S THE FPS CORRECT? 
IIB ;BRANCH IF INCORRECT. 
1 IBDONE 


THESE ARE TEST DATA TABLES AND DATA BUFFER, 


elelelelelelolelelelo) 
— et ot a — 
No oO NN ao 
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IIBTP1: 176 
177074 


127374 
177777 157677, 1 IBBFO,-1,-1,-1 
1IBTP2: 


0 
1 IBBFO. 


1 1BBF 1: 


lelelelelelelelelelelelelelelelele) 
aed cat aad aad ceed cad a cad at cae cael coed ccd ce cll cae ae 


177777 
;I1F A TRAP TO 4 rah ke COME HERE. 
011602 11B10: MOV (SP) ,R2 :SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
011164 R2,#11B2+2 
1 BRANCH IF YES. 


011166 Seaman 
:BRANCH IF 


YES. 
036172 JMP aecp SPUR OTHERWISE GO yt | SPURIOUS TRAP TO 4. 
: FLOW ie ste RESULTED IN A TRAP TO 4. 
022626 1$: CMP (SP) +, (SP) + 
010237 R2,aa$TMP2 
104002 2 


: :ODD ADRES 
000430 I IBDONE BUT FDS*X IN ST 771 


:R RESULT INCORRECT: 
012737 601240 : MOV #IIBTP2, a#$TMP3 
012737 001242 #IIBTP1 .a#$TMP4 
012737 001244 #1 IBBFO. a#$TMPS 
104002 2 


; R 
000415 1 IBDONE 
A INCORRECT: 


012737 01 11820: #1 IBBE 1 a¥STMP3 
010037 001942 aaSTMP 


3 


BAD DATA X11*0 ST 3127 


SE 


BR 1 IBDONE 
:REPORT FPS INCORRECT: 
001240 : MOV RS, aASTMP3 
000204 001244 MOV #204, ae$TMPS 
: ERROR sFPSX 


I IBDONE : 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH 1) pce (HAS 
THE USER TYPED CONTROL G?) 


CRRA EERE REE REE EERE REE REE EEE 


aad aad ad aad an add and dd ce ca cae en end 
——— 
an oOo 


NON A a ss YS es 
—OOWNAULSWN—O 
ed et 
——S ae et et es 
Se BWW WW 


oo COO O0O0O 
RR R 


~— = 3d 
NMohoNnrono 
MEW 


WIWIWNINIWNNNWNNWNWWNWNWNINWNNIWNWWW 
NM 
oa 


— 4 3) 
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s*TEST 26 NEGF, ABSF AND TSTF SOURCE MODE 6 TEST 


ATHIS IS A_TEST THE NEGF, ABSF AND TSTF 
:*SOURCE FLOWS. THE ABSD’ INSTRUCTION 
seIS USED TO TEST MODE 6 


Sins iintritintatieaotantiaieetinidbaiaetiinietatadelibitendaaiinadenenaintieiiiteeinekied 


011410 1$126: 


011412 JJB1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
011524 MOV #JJBTP1,RO :SET UP THE DATA BUFFER. 
011546 #JJBBFO,R1 
000004 #4 ,R2 
(RO) +,(R1)+ 


R2,1 
000200 MOV -* a -RO SET FD. 


011537 MO’ #J JBBF 0-7 ,RO SET UP THE OPERAND ADDRESS. 
011462 001236 AJ JB2 ,AASTMP2 
011454 012737 011566 000004 #JJB10,a#ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 


011462 170660 000007 2 7(RO) TEST INSTRUCTION. 


170205 R5 GET FPS. 
011546 MO A#JJBBFO.R1 ; CHECK RESULT. 
000004 on 
+ 


JJB15 BRANCH IF INCORRECT. 


R2,1$ 
011537 RO, AJJBBF 0-7 :1S RO CORRECT? 
JJB15 BRANCH IF INCORRECT. 
000204 #204 ,R5 :1S THE FPS CORRECT? 
JJB20 BRANCH IF INCORRECT. 
J JBDONE 


: THESE ARE _TEST DATA TABLES AND DATA BUFFER. 
JJBTP1: 177 

161524 

131273 

107174, 


Ww 


JJBIP2: 


0 
J JBBFO: 


J JBBF 1: 


— Se es SS SS 


Ok ek ek th ot 
SERRAAALEE LA 


177777 


lelelelelelelelelelelelelelelele) 


:IF A TRAP TO 4 SS COME HERE. 
011602 JJB10: MOV (SP) ,R2 :SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION, 


So 
— 
= 
Ww 
& 
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020227 011464 R2 ,AJJB2+2 
1$ BRANCH IF YES. 
011466 nee AJ JB2+4 
1$ BRANCH IF 


YES. 
036172 JMP a4CPSPUR SOTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
: REPORT FLOW FAILURE RESULTED IN A TRAP TO 4. 
022626 i$: CMP (SP) +, (SP) + 
010237 MOV R2, aries” 
104002 2 :0DD ADRES 


000430 ; BR JJBDONE [BUT FDSTX IN ST 771 


: RESULT INCORRECT: 
012737 001240 B15: MOV AJIBTP2 ,QASTMP3 
012737 001242 MOV AJJIBTP1 ,a#$TMPS4 
012737 001244 MOV #JJBBF 0, a#$TMPS 
104002 : ERROR 2 BAD DATA X11*0 ST 3127 
000415 BR JJBDONE 


: RO INCORRECT: 
012737 001240 : MOV gk ae aA$TMP3 
010037 001242 MOV RO, a4$TMP 
104002 : ERROR 2 :RO BADX 
000406 BR JJBDONE 

: FPS INCORRECT: 
010537 001240 : MOV R5 ,a4$TMP3 
012737 000204 001244 MOV #204, aASTMPS 
104002 : ERROR 2 7 FPSX 


oooo COCOCOCO 
—_ 3 3 aed od 
— 4 Ss — 3 wt) —) 
seus 

NALS 


AXAOW 
A) at td ed 
OAanwo 


104413 RSETUP G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


ORGS IISISIOISIOIISIOIIOIOIOIUIOIIIOIOIIOI CIO IOI IIIT TORRE T TORT TR tt 


: HTEST 27 NEGF, ABSF AND TSTF SOURCE MODE 7 TEST 


THIS IS A_TEST THE NEGF, ABSF AND TSTF 
:*SOURCE FLOWS. THE ABSD INSTRUCTION 
se1S USED TO TEST MODE 6 


pA RN ATED A x SY REED Beer 


15127: SCOPE 


KKB1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
012020 MOV #KKBTP1,RO 7SET UP THE DATA BUFFER. 
012050 AKKBBFO,R1 


000010 #10,R2 
(ROS +, (R1)+ 
R2,1$ 
000200 MOV #200.RO SET FD. 
012051 MOV #KKBBF 1-7, 7 .RO :SET UP THE OPERAND ADDRESS. 


011756 001236 #KKB2 , af 
012070 000004 #KKBION@ SPERRVECT SET UP VECTOR 4 IN CASE OF AN ERROR, 


Nm 
RS 


Wh 
ow 


SN NNNNNNNNWSV 
RF & 


lelejleleleleleleleleleo) 
ond oh ad od eh ed ed od eb od 


ws 
on 
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011756 


170770 
170205 


177777 


011602 


000007 
012050 
000004 


012051 
000204 


oI E038 
177777 


011760 
011762 
036172 


001236 
12040 


0 
012020 
012050 


012051 
001242 


5 
MACY11 ol fag “hg 11:39 PACE 


177777 


001240 
001242 
001244 


001240 


62 
- ABSF AND TSTF SOURCE MODE 7 TEST 
KKB2: a7 (RO) ;TEST INSTRUCTION. 
;GET FPS. 
CHECK RESULT. 
;BRANCH IF INCORRECT. 
71S RO CORRECT? 
BRANCH IF INCORRECT. 


:IS THE FPS CORRECT? 
BRANCH IF INCORRECT. 


; THESE ARE_TEST DATA TABLES AND DATA BUFFER. 
KKBTP1: 177 

167574 

137271 

107675 ,KKBBFO,-1,-1,-1 


:IF A TRAP TO 4 OCCURS COME HERE. 
KKB10: MOV (SP) ,R2 
Ree -AKKB2+2 
R2,AKKB2+4 
1$ 


7SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
;BRANCH IF YES. 
BRANCH IF YES. 
@4CPSPUR s OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
FLOW FAILURE RESULTED IN A TRAP TO 4. 
(SP) +, (SP)+ 
R2,aaSTMP2 
2 :ODD ADRES 
KKBDONE BUT FDSTX IN ST 771 
RESULT yan lly: 
MOV 


#KKBBF 0, 2 O4STMP5S 
KKBDONE 
~4 INCORRECT: 


AKKBBF 1-7 ,a#$TMP3 
MOV RO, aa$ TMP 


BAD DATA X11*0 ST 3127 
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012164 104002 1$: ERROR 2 :RO BADX 
000406 


012166 BR KKBDONE 
;REPORT FPS INCORRECT: 

012170 010537 001240 KKB25: MOV RS, aASTMP3 

012174 012737 000204 001244 MOV #204, aS TMPS 

012202 104002 1$: ERROR FPSX 


012204 KKBDONE : 

012204 104413 RSE TUP 7GO_ INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


PITTI IITITI TIT I TIT LI STI LITTLITTTTTTTETTTITTT TTT TTT TT TTtTTTtit 


:#TEST 30 NEGF, ABSF AND TSTF SOURCE MODE 6, GR7, TEST 


ieTHIS IS A_ TEST THE NEGF, ABSF AND TSTF 
:*SOURCE FLOWS. THE NEGD INSTRUCTION 
ug USED TO TEST MODE 6 


- iticesniaeieielgianecnsntnintehtaiidiaabatleibaiaiin hil inten nriactaaai 
18730: 


LLB1: 
SET UP THE LOOP ON ERROR ADDRESS. 


012310 MOV #LLBTP1,RO SET UP THE DATA BUFFER. 
picane ALLBBFO,R1 


#4 ,R2 
(RO) +,(R1)+ 
R2,1$ 


0004 


000200 MOV #200, RO iSET FD. 


0 012254 001236 MOV #LLB2 ,a#$TMP2 
012246 012737 012350 000004 #LLB10,a#ERRVECT ;SET UP VECTOR 4 IN CASE OF AN ERROR. 


012254 170767 000050 : LLBBFO 2 TEST INSTRUCTION. 
170205 R5 :GET FPS. 
012330 MO ALLBBFO,R1 CHECK RESULT. 
000004 MO #4 ,R2 
BRANCH IF INCORRECT. 
:IS THE FPS CORRECT? 
L ;BRANCH IF INCORRECT. 
LLBDONE 
; THESE ARE TEST DATA TABLES AND DATA BUFFER, 
LLBTP1: 12 
3 
4 
1 


LLBTP2: 


‘'oooo--~-— 


000000 
177777 LLBBFO: 
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012332 177777 
0123 


177777 


7;1F A TRAP TO 4 fant a COME HERE. 
011602 (LB10: MoV (SP) ,R2 SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 
012256 nee ALLB2+2 
1$ ;BRANCH IF YES. 


012260 f Re. ALLB2+4 
1$ CH IF 


;BRAN YES. 
036172 JMP @4CPSPUR OTHERWISE GO REPORT SPURIOUS TRAP TO 4. 
: FLOW i jr RESULTED IN A TRAP TO 4. 
022626 1$: CMP (SP)+, (SP)+ 
010237 001236 R2,awSTMP2 
104002 : 2 ODD ADRES 


000421 ; BR LLBDONE ‘BUT FDSTX IN ST 771 


; RESULT wre ¥ 
012737 012320 001240 LLB15: MOV ALLBTP2 ,aASTMPS 
012310 001242 ALLBTP1,a#$STMP4 
012330 001244 #LLBBF 0; a4STMPS 
1$: 2 ;BAD DATA X11*0 ST 3127 
012430 000406 BR LLBDONE 
;REPORT FPS INCORRECT: 
012432 010537 001240 LLB25: MOV RS ,aA4STMP3 
012436 012737 000204 001244 #204, aASTMPS 
012444 104002 ; 1$: 2 7 FPSX | 


012446 LLBDONE : : 

012446 104413 :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
= THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


DISA IOI IIIS IOI IIIA IOI IOI ISIS III III TOI 
:ETEST 31 NEGF, ABSF AND TSTF SOURCE MODE 7, GR7, TEST 
ieTHIS IS A TEST THE NEGF, ABSF AND TSTF 
;*SOURCE FLOWS. THE ABSD’ INSTRUCTION 
:*IS USED TO TEST MODE 7 
+t 


° 
CL RARER EKER EERE REE EEEEEEKEEEKEEKKERERERKEKEKEK EK EK 


012450 TST31: 


012452 MMB1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
012552 MOV AMMBTP1,RO ;SET UP THE DATA BUFFER. 
012602 ro Agee 
000010 #10,R2 
(805. (R1)+ 


012474 01 000200 4560" RO :SET FD. 
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£ 


EREELERE 
OONAU RWI 


012510 
012516 
012522 


012550 


012552 


012620 


012622 


012654 
012656 
012664 


012702 
012704 


20=JUN-79 11:22 


170100 
012737 
012737 
170677 


170205 


177777 


011602 


022626 
010237 
104002 
000421 


2737 


01 
01 
01 
1 


010537 


012516 
012622 


000070 


012602 
000004 


012602 
177777 


012520 
012522 
036172 


5 
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131 NEGF, ABSF AND TSTF SOURCE MODE 7, GR7, TEST 


001236 
000004 


177777 


001240 
001242 
001244 


; THESE 


_ MMBTP1 


:1F A TRAP TO 4 OCCURS COME HERE. 
MMB10: MOV (SP) ,R2 


2$: 


sREPORT 
MMB15: 


1$: 
;REPORT 
MMB25: 


LDFPS RO 
MO AMMB? , a4 


@MBBF 1 


RS 
AMMBBFO,R1 
#4,R2 
(R1)+ 

MMB 15 
R2,1$ 
#206 ,R5 
mmB25 
MMBDONE 


MP2 
peated SFERRVECT zSET UP VECTOR 4 IN CASE OF AN ERROR. 
: TEST INSTRUCTION. 
sGET FPS 


ZCHECK RESULT. 


BRANCH IF INCORRECT. 


IS THE FPS CORRECT? 
BRANCH IF INCORRECT. 


“~ DATA TABLES AND DATA BUFFER. 


045607 
101230 
45607 ,MMBBFO,-1,-1,-1 


eo 


or -AMMB2+2 
Ree AMMBO +4 


(SP)+ 
Re. -@4$TMP2 


MMBDONE 
RESULT INCORRECT: 
MOV AMMBTP2 


BR MMBDONE 
FPS INCORRECT 
MOV R5, a¥STMP3 


SEE IF THE TRAP OCCURRED ON THE TEST INSTRUCTION. 


BRANCH IF YES. 


;BRANCH IF YES. 
HERWISE GO REPORT SPURIOUS TRAP TO 4. 


arp SPUR :0T 
FLOW cee RESULTED IN A TRAP TO 4 


:ODD ADRES 
BUT FDSTX IN ST 771 


BAD DATA X11*0 ST 3127 
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012710 012737 000204 001244 MOV #204, aA$STMPS 
012716 104002 1$: ERROR 2 3 FPSX 


012720 MMBDONE . 

012720 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


SRA ARERR ERA RARE AEE RAEA ARERR RAEEEEAREREEREREEREE HERE 


TaTEST 32 SPECIAL DEST, MODE 0, TEST 


* 
s*THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
:*MODE 0 USING THE NEGD INSTR, 

-* 


. 
RRR AAAAAAAAAAERAARAREREEREEERRERRARAEREREREARERER ERE 


012722 6 1$132: SCOPE 
012724 NNB1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
000200 #200.R0 “SET FD. 
013022 ANNBTP1,RO :SET UP ACO. 
(RO) ,ACO 

012742 D 012750 001236 ANNB2 , AAS TMP2 
012750 : : TEST INSTRUCTION. 


012752 R5 :GET FPS. 
012700 000200 MO <3 iSET FD. 


013042 :GET THE RESULT. 
013042 :1S THE RESULT CORRECT? 


013032 
000004 


LPERR 
MOV 
LDFPS 
MOV 


N80 :BRANCH IF INCORRECT. 
000210 i0,R' :1S THE FPS CORRECT? 
NNB 1 “BRANCH IF INCORRECT. 


; THESE DATA BUFFER, 
NNBTP1: 013572 


NNBTP2: 


NNBAF () : 


013050 
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3523 

3524 

3525 013052 
3526 013060 
3527 013066 
3528 013074 
3529 013076 
7530 013100 
3531 

3532 

3533 013102 

3534 013102 

3535 013104 
3536 

3537 

3538 013106 
3539 013112 
3540 013120 
3541 

3542 013122 

3543 013122 
3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 013124 
3556 

3557 013126 

3558 013126 
3559 013130 
3560 013134 
3561 013140 
3562 613144 
3563 013146 

3564 013150 
3565 013154 
566 013160 
3567 013166 
3568 013172 

3569 

3570 013174 
3571 013176 
3572 013200 
3573 013204 
3574 013210 
3575 013214 
3576 013216 
3577 013220 

3578 013222 


170101 
170710 


20-JUN-79 11:22 


001242 
000210 


013240 
013250 
000004 


013240 
100000 
013174 
000200 


013240 
013250 
000004 


013240 
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001240 
001242 
013042 


001240 


001236 


SPECIAL DEST, MODE 0, TEST 


;REPORT RESULT INCORRECT: 
NNB10: MOV ANNBBF 0, aS TMP 3 


CMP @ANNBTP 1 , ANNBAF 0 
BNE NNB11 

1$: ERROR 1 3E10*200K ST 336 
BR NNBDONE 

;REPORT RESULT INCORRECT: 

NNB1!: 

1$: ERROR 1 ;BAD DATA NEGF 
BR NNADONE 

;REPORT FPS INCORRECT: 

NNB15: MOV R5,@4$TMP4 
MOV #210, a4$TMP3 

1$: ERROR 1 sFPSX 

NNBDONE : 
RSETUP 3GO INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


CEA ERAEAERERAEERERAR ARERR AAR EE 


s*TEST 33 SPECIAL DEST, MODE 1, TEST 


* 

:*THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
;*MODE 1 USING THE NEGD INSTR, 

-* 

PETITITTITITITTITTTTTT TTT LITT TTT TTT TTT TTT 


1S133: SCOPE 


00B1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV #OOBTP1,R1 :SET UP THE DATA BUFFER. 
MOV #OOBTP2-RO 
MOV #4 ,R2 
1$: MOV (RO) +, (R1)+ 
SOB R2,1 
MOV #OO0BTP1,RO 
BIC #100000, (RO) :MAKE OPERAND POSITIVE. 
MOV #00B2 , AAS TMP2 
MOV #200,R1 :SET FD. 
LDFPS RI 
00B2: NEGD (RO) : TEST INSTRUCTION. 
STFPS RS “GET FPS. 
MOV #OOBTP1 Ri :1S THE RESULT CORRECT. 
MOV #OOBTP2.R2 
MOV #4 ,R3 
1$: CMP (R1)+, (R2)+ 
BNE 00810 ;BRANCH IF INCORRECT. 


R3,1$ 
CMP #O00BTP1,RO 21S RO CORRECT. 


SEQ 0067 
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013226 


013256 


013260 


013314 


013316 
013324 
013330 


613332 
013332 


052672 


012737 


012737 
010037 
104002 
000406 


012737 
010537 
104002 


104413 


000004 
104414 
012701 
0127 


000210 


013240 
013250 


013240 
001242 


000210 
001242 


013450 


013450 
100000 
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001240 
001242 


007240 


001240 


SPECIAL DEST, MODE 1, TEST 


0815 :BRANCH IF INCORRECT. 
9O40 R5 ‘1S THE FPS CORRECT? 
00820 SBRANCH IF INCORRECT. 
OOBDONE 


THESE ARE DATA TABLES AND A DATA BUFFER. 
G08 TP I : 023245 


526 
OOBTP2: 
26720 


REPORT RESULT INCORRECT: 
00B10: MOV #OOBTP1 , a#$STMP3 
#OOBTP2 , aASTMPS 
1$: ERROR 2 BAD DATA 
BR OOBDONE 


REPORT RO INCORRECT: 
00B15: MOV H+ yg lg Po pata 


1$: SPEC DESTX 
ROX 


sREPORT FPS INCORRECT: 

00B20: MOV #210, a4$TMP3 
MOV RS, aa$TMP4 

1$: ERROR 2 


RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
>SEE IF THE USER HAS EXPRESSED 
= THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 
DSSS IIIOISISISISIOISIIIDIOISI IIIS SIUC IOI IAI III III RE 


; TEST 34 SPECIAL DEST, MODE 2, TEST 


: THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
:*MODE 2 USING THE NEGD INSTR. 


CLERK REE EKER EERE EERE RE KER KEE EKER KKK 
TST34: 
PPB1: 

;SET UP THE LOOP ON ERROR ADDRESS. 


#PPBTP1,R1 SET UP THE DATA BUFFER. 
#PPBTP2,RO 


#4 .R2 
(RO) +, (R1)+ 
R2,1$ 


#PPBTP1,RO 
#100000, (RO) MAKE OPERAND POSITIVE. 
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013370 


013524 


013526 
013534 
013540 


013542 
013542 


20=JUN- 
012737 
012701 
170101 
170720 


170205 


012737 
010537 
104003 


104413 


11:22 
013404 
000200 


013450 
013460 
000004 


013460 
000210 


013450 
013460 


013460 
001242 


000210 
001242 
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134 EST 


001236 


001240 
001242 


001240 


001240 


SPECIAL DEST, MODE 2, T 
#PPB2 , AAS TMP2 
#200,R1 SET FD. 


(RO) + TEST INSTRUCTION. 


R5 GET FPS. 
#PPBTP1,R1 71S THE RESULT CORRECT. 
APPBTP2,R2 


#4 ,R3 
(R1)+,(R2)+ 
PPB10 


BRANCH IF INCORRECT. 


APPBTP1+10,RO ;1S RO CORRECT. 

PPB15 BRANCH IF INCORRECT. 
#210,R5 71S THE FPS CORRECT? 
PPB20 [BRANCH IF INCORRECT. 
PPBDONE 


; THESE ARE DATA TABLES AND A DATA BUFFER. 
PPBTP1: 023245 


5 
PPBTP2: 


;REPORT RESULT INCORRECT: 

PPB10: MOV #PPBTP1,a&#$TMP3 
#PPBTP2, ar 

1$: ERROR 


1 
BR PPBDONE 


REPORT ~# INCORRECT: 
PPB15: RO, a#STMPS - OAS TMP3 


1$: R SPEC DESTX ROX 
PPRDONE 


FPS INCORRECT: 

MOV #210, —" 
MOV R5, aa$TMP 

ERROR 1 


RSETUP :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH ll (HAS 
THE USER TYPED CONTROL G?) 


PETIT IIIT IIT I TTT TTT T TT TTTLITT TILT T TT LTT TTL TTT TTT TTT TTT TTT 


: TEST 35 SPECIAL DEST, MODE 4, TEST 
THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
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013544 


013710 


013712 


013730 


013732 


013746 


170101 
170740 
170205 


052672 
012737 
012737 
104001 
000415 


012737 


013662 
013702 
000004 


013672 
100000 
013616 
000200 


013662 
013702 
000004 


013662 
000210 


177777 


13662 
13702 


013662 
001242 
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177770 
001236 


177777 


001240 
001242 


001240 


SPECIAL DEST, MODE 4, TEST 
; *MODE 4 USING THE NEGD INSTR. 


SEEKER EEE EEE AKER 


SET UP THE LOOP ON ERROR ADDRESS. 
#QQBTP1,R1 :SET UP THE DATA BUFFER. 
a 


#4 R2 
(RO) +, (R1)+ 

R2,1$ 

#QQBTP1+10,R 

#100000, ~16¢Ro) :MAKE OPERAND POSITIVE. 
#Q0B2, a4$ TMP 


#200,R1 sSQT FO. 
R1 


-(RO) 3; TEST INSTRUCTION, 

R5 GET FPS. 

#QQBTP1,R1 21S THE RESULT CORRECT. 
#QQBTP2,R2 


#4 ,R3 
(R1)+,(R2)+ 
Q0810 


00870 ;BRANCH IF INCORRECT. 
#Q0BTP1,RO z1S RO CORRECT. 
00815 


BRANCH IF INCORRECT. 
#210,R5 :I1S THE FPS CORRECT? 
QQB20 BRANCH IF INCORRECT. 
QQBDONE 


; THESE ARE DATA TABLES AND A DATA BUFFER. 
QQBTP1: 023245 
26720 
122324 
52672 
-WORD -1,-1,-1,-1 
: 123245 
26720 
122324 
52672 
;REPORT RESULT INCORRECT: 
QQB10: MOV #QQBTP1,a4STMP3 
#Q0BTP2. @ASTMPS 
1$: ERROR 1 ;BAD DATA 
BR QQBDONE 


REPORT ~# INCORRECT: 
QQB15: roy Hall - AS TMPS 


1$: 1 sSPEC DESTX ROX 
QQBDONE 


SEQ 0070 
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013750 
013756 
013762 


013764 
013764 


013766 
013770 
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170101 
170730 
170205 


052672 


000210 
001242 


014110 
014120 
000004 


014132 
000210 
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001240 


014110 
001236 


REPORT FPS INCORRECT: 
00820: saad #210, a4$TMP3 


R5,aA4$TMP4 
1$: ERROR 1 
QQBDONE : 
RSETUP ;GO INITIALIZE THE FPS AND STACK; AND 
sSEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 
COIR IOIIIIIIIIISIIISIIIIIISISIOIOIOIOIOR IOIOIOIOIOIUIOIOIOII III IOI OIRO OOOO TOTTI OTROS AOS 
: TEST 36 SPECIAL DEST, MODE 3, TEST 


sTHIS IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 


>*MODE 3 USING THE NEGD INSTR. 
ot 


° 
B FARRER KKK REE REE KKK KERR EKER EEE KERR ERE KEKE KEE 


TST36: SCOPE 


RRB1: 
LPERR 
MOV #RRBTP1,R1 
MOV #RRBTP2,RO 
MOV #4 ,R2 

1$: MOV (R0)+, (R1)+ 
SOB 1$ 
MOV lies rs 
MOV #RRBTP1, (RO) 
BIC #100000, @ARRBTP1 
MOV #RRB2, a4$TMP2 
MOV #200,R1 
LDFPS R11 

RRB2: NEGD @(RO)+ 
STFPS R5 
MOV #RRBTP1,R1 
MOV #RRBTP2,R2 
MOV #4 ,R3 

1$: CMP (R1)+,(R2)+ 
BNE RRB10 
SOB R3,1$ 
CMP #RRBTP3+2,RO0 
BNE RRB15 
CMP #210,R5 
BNE RRB20 
BR RRBDONE 


:SET UP THE LOOP ON ERROR ADDRESS. 
SET UP THE DATA BUFFER. 


sMAKE THE OPERAND POSITIVE. 
SET FD. 


TEST INSTRUCTION. 
sGET FPS 


TIS THE RESULT CORRECT. 


BRANCH IF INCORRECT. 


21S RO CORRECT. 

BRANCH IF INCORRECT. 
31S THE FPS CORRECT? 
BRANCH IF INCORRECT. 


; THESE ARE DATA TABLES AND A DATA BUFFER. 


RRBIP1: 023245 
26720 
122324 
52672 


SEQ 0071 
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014120 123245 RRBTP2: 123689 


5 
014110 RRBTP3: RRBTP1 


REPORT RESULT INCORRECT: 
14110 001240 RRB10: MOV ARRBTP1 , aA#STMP3 
14120 001242 #RRBTP2, a#$TMPG 
1$: ERROR 1 BAD DATA 
BR RRBDONE 


;REPORT ~ # INCORRECT: 
014132 001240 RRB15: RO, a#SiMPd , 24S TMP3 


001242 
1$: sSPEC DESTX ROX 
RRBDONE 


;REPORT FPS INCORRECT: 
000210 001240 RRB20: MOV #210, 04S TMP3 
001242 MOV R5 ,aASTMPS 
1$: ERROR 1 


RRBDONE : 
104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
= VIRTUAL CONSOLE SWITCH — (HAS 
7 THE USER TYPED CONTROL G7?) 


Atte La 


3 83 02 03 G3 8 830 
CONAUSWN = 


8 
so 


FREER EERE ERK EE KEE KER ERE KEKE EERE KEE REE RE EERE 


: FEST 37 SPECIAL DEST, MODE 5, TEST 


THIS IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
s *MODE 5 USING THE NEGD INSTR. 


SERRE KEKE ERE KEKE RARE EREKEEERKEEEREKEEEERE KEE 


:SET UP THE LOOP ON ERROR ADDRESS. 
014332 MO #SSBTP1,R1 SET UP THE DATA BUFFER. 
014342 ASSBTP2,RO 
000004 #4,R2 
a (R1)+ 


R2 
014354 #SSBIP3+2,RO 
177776 #SSBIP1,~2(RO) 
014332 #100000. a#SSBIP1 :MAKE THE OPERAND POSITIVE. 
001236 2, a4$TMP a 


170101 


170750 : a-(RO) TEST INSTRUCTION. 


014270 170205 R5 GET FPS. 
014272 012701 014332 #SSBTP1,R1 1S THE RESULT CORRECT. 
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014276 


014352 


014354 
014362 
014370 
014372 


014374 


014410 


014412 
014420 
014424 


014426 
014426 


014430 
014432 
014432 
014434 


012702 
01 


000004 


104414 
012/01 


014342 
000004 


014352 
000210 


014332 
014342 


014352 
001242 


000210 
001242 


014544 
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001240 
001242 


001240 


001240 


SPECIAL DEST, MODE 5, TEST 
#SSBTP2,R2 
#4 R3 


Cites (R2)+ 
$SB10 :BRANCH IF INCORRECT. 


R3,1$ 
#SSB1P3, RO :1S RO CORRECT. 
$5B15 SBRANCH IF INCORRECT. 
#210 R5 ‘1S THE FPS CORRECT? 
$B20 ‘BRANCH IF INCORRECT. 
S SBDONE 


Looaat ARE DATA TABLES AND A DATA BUFFER. 
SSBIP1: 023245 


5 
SSBTP2: 
26270 


SSBTP3: 


sREPORT RESULT !NCORRECT: 

SSB10: MOV A#SSBTP1 ,a#$TMP3 
MOV A#SSBTP2 , aASTMP4 
ERROR 1 ;BAD DATA 
BR SSBDONE 


RO INCORRECT: 
MOV ye ors 
MOV ala 
ERROR SPEC DESTX ROX 
BR SSBDONE 


FPS INCORRECT: 

MOV #210, a4$TMP3 
MOV R5,a#$TMP4 
ERROR 1 


RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


ITI TI IIT IIIT ITI LITT T ITIL TIT TTT TTT TTT TTT TTT TTT TTT TTT TT 


:STEST 40 SPECIAL DEST, FLOATING MODE 2, TEST 


eTHIS IS A_TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
; *MODE e USING THE NEGF INSTR. 


RRR REE REE ERKEERERER ERK ERE EERE EEREEEEREREREREE ERE EEE 


18140: SCOPE 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 
MOV #TTBTP1,R1 :SET UP THE DATA BUFFER, 


SEQ 0073 
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014440 012700 014554 #TTBIP2, RO 
000004 ns 
(RODe. (R1)+ 
2,1$ 


R 
014544 MOV #TTBTP1 RO 
#100000, (RO) MAKE OPERAND POSITIVE. 
001236 tL aatatas 


MOV #000,R1 SET FD. 
014476 170101 R1 


014500 170720 : (RO) + TEST INSTRUCTION. 


014502 170205 R5 ;GET FPS. 
0145 MO ATTBTP1,R1 31S THE RESULT CORRECT. 
#TTBTP2,R2 
#4 ,R3 
(R1)+,(R2)+ 
yg ;BRANCH IF INCORRECT. 
014550 #TTBTP1+4,R0 71S RO CORRECT. 
TTB15 ;BRANCH IF INCORRECT. 
000010 31S THE FPS CORRECT? 
0 ;BRANCH IF INCORRECT. 
014542 TTBDONE 


THESE ARE DATA TABLES AND A DATA BUFFER, 
014544 TTBTP1: oeage? 


52672 
TTBTP2: } 


052672 


RESULT INCORRECT: 
012737 001240 MOV ATTBTP1 ,a#$TMP3 
001242 MOV  theaattiees 2 @ASTMPS 


BR TTBDONE 


: RO INCORRECT: 
012737 001240 TTB15: MOV ATTBTIP1+4 ,a#$TMP3 
010037 001242 MOV RO, a#$TMP4 
2 ERROR 1 zSPEC DESTX ROX 
014620 000406 BR TTBDONE 


sREPORT FPS INCORRECT: 
014622 012737 000010 001240 TTB20: MOV #010 ,a4$TMP3 
010537 001242 MOV i aASTMPS 
104001 1$: ROR 


TTBDONE : 
104413 R #60 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOFTWARE 


BAD DATA 
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VIRTUAL CONSOLE SWITCH gaat (HAS 
; THE USER TYPED CONTROL G 


 chisainhbiatinimnagabaninaanabncatabncerseteeentiintes 


: TEST 41 SPECIAL DEST, MODE2, GR7 (IMMEDIATE), TEST 


ATHIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
>*MODE 2( IMMEDIATE) USING THE NEGD INSTR. 
= 


e 
FT REE REE REE REE EERE ERR EH 


TST41: SCOPE 
UUB1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
014770 MOV MUUBTP2 ,RO 
014716 er R1 ;SET UP THE DATA BUFFER. 
000004 R2 
{ROds, (RID* 
2.1% 


e 


014716 #UUBTP1 ,RO 

100000 014716 #100000 , @#UUBTP1 MAKE THE OPERAND POSITIVE. 
014714 001236 MUUB2 , AAS TMP2 

000200 MOV -~ el sSET FD. 


014712 R1 


014714 170727 UUB2:  NEGD (R7) + TEST INSTRUCTION. 
014716 005201 005201 005201 UUBTP1: 5201,5201,5201,5201 


014724 005201 
:NOTE ~~ ae THIS ty» ia R1 SHOULD CONTAIN 3. 


014726 170205 PS 
014716 #UUBTP1 ,R3 31S THE RESULT CORRECT. 
014770 MUUBTP2 ,R2 


000004 #4.RG 
(R3)+, (R2)+ 
UUB10 :BRANCH IF INCORRECT. 


000003 WAS R1 INCREMENTED CORRECTLY. 
UUB15 BRANCH IF INCORRECT 

000210 71S THE FPS CORRECT? 
UUB2 BRANCH IF INCORRECT. 


; THESE ARE DATA TABLE. 
UUBTP2: 105201 
5201 


: ~ ta INCORRECT: 
014716 001240 10: MUUBTP1 , AAS TMPS 
014770 001242 MOV MUUBTP2 , AAS TMPS 
1$: ERROR 1 :BAD DATA 
015016 BR UUBDONE 


REPORT FPS INCORRECT: 
015020 000210 001240. UuB20: Mov #210, a4$TMP3 
015026 001242 MOV R5 ,aaSTMP4 
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4027 015032 104001 
4028 015034 000413 
4029 
4030 
4031 015036 162701 
4032 015042 006301 
4033 5044 012702 
4034 015050 010237 
4035 015054 160102 
4036 015056 010237 
4037 015062 104001 
4038 
4039 015064 
4040 015064 104413 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 015 000004 
4053 015070 
4054 015070 104414 
4055 015072 012701 
4056 015076 012700 
4057 015102 012702 
4058 015106 012021 
4059 015310 077202 
4060 015112 012700 
4061 015116 042737 
4062 015124 012737 
4063 015132 012701 
4064 015136 170101 
4065 
4066 015140 005001 
4067 015142 170760 
4068 
4069 015146 170205 
4070 015150 005701 
4071 015152 001030 
4072 015154 012701 
4073 015160 012702 
4074 015164 012703 
4075 015170 022122 
4076 015172 1030 
4077 015174 077303 
4078 015176 022700 
4079 015202 1034 
4080 015204 022705 
4081 015210 104 
4082 015212 


000003 


014720 
001240 


001242 


015214 
015224 
000004 


010013 
005201 
015214 
015224 
000004 


010013 
000210 


MACY11 30A(1052) 
141 


015214 
001236 


1$: 


REPORT 
UUB15: 


UUBDONE : 
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ERROR 
BR 


; 
UUBDONE 


FPS 


PC INCORRECTLY INCREMENTED DURING EXECUTION. 
SUB #3,R1 


RI 
#UUBTP1+2,R2 
R2, a#STMPS 
R1_R 


2 
Re, a#STMPS 


PC BAD CONSTAND B GR7X 


3GO_INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FDC IOC OIC ISIC III II TI RTA I IOS AIS ISOAS IIASA SAAS AAA 


Z*TEST 42 


. 
e 


SPECIAL DEST, MODE 6, TEST 


+ 
:*THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
:*MODE 6 USING THE NEGD INSTR. 


FF RARER KKK ERE EERE REE EEKKE EKER EKEKEKEKEK ERE 


TST42: 
XXB1: 


1$: 


XXB2: 


1$: 


SCOPE 


#XXBTP1,R1 
#XXBTP2.RO 


#4 ,R2 
(RO) +. (R1)+ 
WXBTP1-5201, 


:SET UP THE LOOP ON ERROR ADDRESS. 
SET UP THE DATA BUFFER. 


RO 
#100000, @4XXBTP1;MAKE OPERAND POSITIVE. 


#XXB2 , BAS TMP2 
ope. 


R1 

5201 (RO) 

R5 

R1 

XXB25 
#XXBTP1,R1 
AXXBIP2,R2 
#4,R 
(R1)+,(R2)+ 
XXB10 
R3,1$ 
#XXBTP1-5201,R0 ; 
XXB15 

on R5 


XB20 
XXBDONE 


SET FD. 


:TEST INSTRUCTION. 


:GET FPS. 
WAS THE PC CORRECT AFTER EXECUTION? 


1S THE RESULT CORRECT. 


BRANCH IF INCORRECT. 


;1S RO CORRECT. 

BRANCH IF INCORRECT. 
71S THE FPS CORRECT? 
BRANCH IF INCORRECT. 


SEQ 0076 
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THESE ARE DATA TABLES AND A DATA BUFFER. 
023245 KxBTP1: 023245 


26720 

122324 

52672 
XXBTP2: 

26720 


052672 


: PC INCORRECT AFTER me 
012737 015144 001242 : MOV AXXB2+2 , @ASTMP 

012737 015146 001240 MOV AXXB2+4, oes TMPS 

104001 1$: ERROR 1 PC NOT INCREMENTED BY 2. 
015252 000425 BR XXBDONE 


REPORT RESULT INCORRECT: 
015254 012737 015214 001240 XxB10: MOV A#XXBTP1 , @ASTMPS 
012737 015224 001242 AXXBTP2 , av 
104001 1$: ERROR 1 
015272 000415 BR XXBDONE 


;REPORT ~4 INCORRECT: 
015274 012737 010013 001240 xxB15: usm” a4$TMP3 
015302 010037 001242 
015306 104001 : SPEC DESTX ROX 
015310 000406 XXBDONE 


; FPS INCORRECT: 
015312 012737 000210 001240 XxB20: MOV #210, —-* 
015320 010537 001242 R5 ,a4STMP 
015324 104001 : 1 


015326 : 

015326 104413 :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
2 THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


SF EEK KEK KKK EKKEEKEREKREEEKKEKRKEKEEKEKEEEREREKEKREKKE 


eSTEST 43 SPECIAL DEST, MODE 7, TEST 


THIS IS A TEST OF THE NEGF ABSF AND TSTF DESTINATION FLOWS 
; sMODE 7 USING THE NEGD INSTR. 


LITA I OM POTN A Sh Ik OR Le RR, 


015330 18143: SCOPE 


015332 YYB1: 
SET UP THE LOOP ON ERROR ADDRESS. 
015464 #YYBTP1,R1 : UP THE DATA BUFFER. 
015474 #YYBTP2,RO 
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015410 
015412 


015416 


015524 


015526 
0155 


012702 


170101 


005001 
170770 
has 


016737 
016737 
104002 
000425 
012737 
012737 
104002 
000415 
012737 
010037 
104002 
000406 


000004 


010303 
015464 


100000 
015412 
000200 


015464 
015474 
000004 


010303 
000210 


177702 
177676 


010303 
001242 
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005201 
015464 
001236 


001242 
001240 


001240 
001242 


001240 


SPECIAL DEST, MODE 7, TEST 


#4 ,R2 
1$: (RO)+, (R1)+ 


Re, 

#YYBTP3=5201 ,RO 

#YYBTP1 ,5201 (RO) 

#100000, a#YYBTP1 MAKE THE OPERAND POSITIVE. 
#YYB2 ,aASTMP2 

#200,R1 :SET FD. 


R1 
5207 (RO) TEST INSTRUCTION. 


RS GET F 

RI os {WAS THE'PC CORRECT AFTER EXECUTION? 
#YYBTP1,R1 :1S THE RESULT CORRECT. 
#YYBIP2,R2 
#4 R3 
(R1)+, (R2)+ 
v¥B10 ;BRANCH IF INCORRECT. 
#YYBTP3-5201.RO 21S RO CORRECT. 

YYB15 BRANCH IF INCORRECT. 
#210,R5 71S THE FPS CORRECT? 


YYB20 [BRANCH IF INCORRECT. 
YYBDONE 


: THESE ARE DATA TABLES AND A DATA BUFFER. 
YYBTP1: 9e3g6> 


YYBTP2: 


YYBTP3: YYBTP1 


REPORT PC INCORRECT AFTER EXECUTION. 
YYB25: MOV YYB2+2 ,a@ASTMPS 
MOV YYB2+4 , QASTMP3 
ERROR 2 PC NOT INCREMENTED BY 2. 
BR YYBDONE 


RESULT INCORRECT: 

MOV #YYBTP1 ,a@ASTMPS 

MOV #YYBTP2 ,aASTMPS 

ERROR 2 :BAD DATA 
BR . YYBDONE 


T RO INCORRECT: 
MOV ro hy Hg aT al a4$TMP3 
MOV RO, a4$TMP 
ERROR 2 :SPEC DESTX ROX 
Y YBDONE 


SEQ 0078 
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REPORT FPS INCORRECT 
015564 012737 000210 001240 YYB20: MOV #210, awSTMP3 
015572 evens 001242 MOV RS, aaSTMP4 
015576 104002 1$: ERROR 2 


015600 YYBDONE : 

015600 104413 RSE TUP :GO_ INITIALIZE THE FPS AND STACK; AND 
[SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 


S RARER ARARAEA RARER ARRERERREREERARRERREEE 


oe 


ssTES! 44 NEGD, ABSD AND TSTD TEST 
THIS IS A TEST OF THE NEGD ABSD AND TSTD INSTRUCTIONS. 


** 
° 
° FTAA AAA RERREKAARRAE RARER EH 


15144: SCOPE 
Abt NEGD WITH POS NONZERO OPERAND 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,NATSUB 


1$: 0 3 FLAG=NEGD. 
2$: ; OPERAND. 


3$: RESULT. 
4$: 341 ERROR RES. 


5$: FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
= Ya FPS. 

6$: 2 [E10<==-E10*200x ST 336 


7$ 
2 ;BUT ENBT ST 336X WENT TO 053 INTO 453 


7$: 
Be ti NEGD WITH NEG OPERAND. 
er 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


000556 PC ,NATSUB 
: ;FLAG=NEGD, 
; OPERAND. 


sRESULT. 
055565 
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057505 
4$: 


5$: 


6$: 


015740 


7$: 
; TEST ABSD WITH POSITIVE OPERAND 
015740 WWR 3: 


LPERR 
a PC ,NATSUB 


$: 
7 TEST ABSD WITH NEG. OPERAND 
WWB4 : 


LPERR 
000422 ‘en PC ,NATSUB 


016056 


80 


ERROR RES. 


sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
ERROR FPS. 

FEC 

3E10<---E10*200x $336 


;BUT ENBT xX ST336 TO 453 INTO 053 


:SET UP THE LOOP ON ERROR ADDRESS. 
;FLAG=ABSD. 


OPERAND . 


sRESULT. 


ERROR RES. 


FPS BEFORE EXECUTION. 

ZFPS gi EXECUTION. 
ERROR FPS, 

sEITHER BUT OP1B 

;BUT ST 055 TO 336 INTO 335 


OR BUT ENBT ST 335 TO 452 INTO 052 


:SET UP THE LOOP ON ERROR ADDRESS. 
:FLAG=ABSD. 
; OPER 


AND. 


sRESULT. 


ERROR RES. 


FPS BEFORE EXECUTION, 
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000200 
177777 
177777 
104002 


000401 
104002 


6$: 


4$: 


5$: 


6$: 


016152 
016152 


7$: 
;TEST TSTD WITH NEG OP 
WWE6 : 


LPERR 
000266 . PC ,,NATSUB 


016226 
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FPS AFTER EXECUTION. 
ERROR FPS. 


3E10*E10*200x ST 452 


SET UP THE LOOP ON ERROR ADDRESS. 


sFLAG=TSTD. 
; OPERAND. 


sRESULT. 
ERROR RES. 


FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 

ERROR FPS. 

;BUT (OP1B) X ST044 TO 336 INTO 334 


;BUT ENBT ST 334 TO 453 INTO 053 


SET UP THE LOOP ON ERROR ADDRESS. 


:FLAG=TSTD. 
; OPERAND. 


sRESULT. 
ERROR RES. 


:FPS BEFORE EXECUTION. 

ZFPS > ee EXECUTION. 

ERROR FPS. 

;BUT OPB1 ST 055 TO 335 INTO 334 


;BUT ENBT ST 334 TO 053 iNTO 453 


SEQ 0081 
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4363 
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20=JUN=79 1 
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7$: 
;TEST TSTD O OP 
WWB7: 


LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
000210 JSR PC,NATSUB 
1$: 2 ;FLAG=TSTD. 
2$: 5 sOPERAND. 
176737 
71727 
37574 
3$: 75 RESULT. 
176737 
71727 
37574 
4$: . ;ERROR RES. 
5 
5$: 200 3FPS BEFORE EXECUTION. 
204 sFPS AFTER EXECUTION. 
jy Z;ERROR FPS. 
6$: —_ $. ;BUT OP1B ST 255 TO 311 OR 312 INTO 310 
- ERROR 2 ;BUT ENBT ST 310 TO 402 INTO 002 
; TEST TSTD -0 OP FIUV=0 
WWB8 : 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
000132 JSR PC,NATSUB 
1$: 2 sFLAG=TSTD. 
2$: 100123 ; OPERAND. 
21012 
34565 
43210 
3$: 100123 ;RESULT. 
21012 
34565 
43210 
4$: ZERROR RES. 
0 
5$: 40203 sFPS BEFORE EXECUTION. 
040214 sFPS AFTER EXECUTION. 
140214 sERROR FPS. 
6$: ERROR 2 it 
BR 7$ 
- ERROR 2 ;BUT FIUV ST 257 TO 355 INTO 255 
sTEST TSTD -O OP FIUV=1 
WWB9: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
000054 JSR PC,NATSUB 
1$: 2 ;FLAG=TSTD. 


SEQ 0082 
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016374 
016376 
01 
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000167 000414 
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» ABSD AND TSTD TEST 


2$: 100137 ; OPERAND. 
24613 
57024 
60137 
3$: 100137 sRESULT. 
24613 
57024 
60137 
4$: 8 ERROR RES. 
S 
5$: 44200 :FPS BEFORE EXECUTION. 
144214 FPS AFTER EXECUTION. 
“"* ERROR FPS. 
6$: ERROR 6. s¢ 
$ ERROR 2 ;BUT FIiUV ST 257 TO 255 INTO 355 


JMP WWEDONE 


; THIS SUBROUTINE, NATSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
;THE EITHER A TS7D, AN ABSD OR A NEGD INSTRUCTION AND CHECK THE RESULTS. A CALL 
:TO IT IS MADE THUS: 


5 JSR PC, @ANATSUB 

4 FLAG: -WORD xX = INSTRUCT ION TYPE FLAG. 
: ACARG: .WORD X,X,X,X RAND 

; RES: «WORD X,X,X,X S EXPECTED RESULT 

; ERRES: .WORD X,X,X,X sERROR RESULT 

: PSB: -~ WORD x sFPS BEFORE EXECUTION 
: FPSA: -WORD xX FPS AFTER EXECUTION 
; FEC: -WORD X sEXPECTED FEC 

; ERFPS: .WORD xX sERROR FPS. 

; ERR1: ERROR 2 ;DATA ERROR. 

; BR CONT 

2 ERR2: ERROR 2 3FPS ERROR. 

: CONT: sRETURN ADDRESS 

Z : THE OPERAND IS SET UP IN NATBF1. THEN 


:THE EITHER THE TSTD, NEGD OR ABSD INSTRUCTION IS EXECUTED. 

;NATSUB USES THE FIRST ag AS A FLAG TO DETERMINE WHICH INSTRUCTION 

:1S TO BE EXECUTED: 0 = 1 = ABSD, TSTD. 

: THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
[COMPARED WITH FPSA. IF THIS TOO IS CORRECT NATSUB mat URNS CONTROL 

:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD NATSLB 

;COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN aH ee WILL RETURN 

:TO THE ERROR CALL AT ERR2, OTHERWISE NATSUB ITSELF 

;REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 


SANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
;THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN NATSUB 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 

RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND NATSUB WILL 

REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


SEQ 0083 
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(SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 
R1,R2 COPY THE OPERAND. 


000002 #2,R2 
017050 #NATBF1,R3 
000004 #4 RG 
ed aaa 
000032 MOV 32(R1) ,RO ;LOAD THE FPS. 


017050 MOV #NATBF1,RO :SET UP THE OPERAND ADDRESS. 
(R1),R2 GET THE FLAG TO DETERMINE WHICH 
R2 : INSTRUCTION TO EXECUTE. 

R2 ;0 = NEGD, 1 = ABSD, 2 = TSTD 

016526 ANATINS ,R3 


R2,R 

001236 R3. a#STMP2 

000113 (R3) :GO EXECUTE THE INSTRUCTION. 
170710 
000403 
170610 
000401 
170510 


GET THE FPS. 
GET THE FEC. 


- AASTMPS 

001242 #NATBF 1, aS TMP4 
R4, @ASTMP7 

34(R1) ,a#$TMP10 

1,R0 WAS THE RESULT CORRECT? 


#4,R 
(RO)+,(R2)+ 
10$ 


BRANCH IF INCORRECT. 


R3,3$ 
000034 34(R1) ,R4 :WAS THE FPS CORRECT? 
BNE BRANCH IF INCORRECT. 
000034 am ;1F THE EXPECTED FPS WAS NEGATIVE CHECK THE FEC. 


000040 40(R1),R5 WAS THE FEC CORRECT. 
20$ BRANCH IF INCORRECT. 
000050 4%: 50(R1) ;RETURN. 


2 THE RESULT WAS INCORRECT BUT WAS THIS FAILURE ANTICIPATED? 
ieee IF THE RESULT WAS ANTICIPATED: 


011105 (R1),R5 
006305 R5 
006305 R5 
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016714 
016716 
016722 


016724 
016730 


016732 


016750 


016752 


01 
017010 
017012 


017016 


017030 


017032 


001003 
077303 
000161 
000115 


026105 
001002 


000161 


011102 
02 
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017000 


000022 
017050 
000004 


000042 


000036 


000046 


017016 


000040 
001254 


017032 


000050 


H 7 
MACY11 —, ey hy 11:39 PAGE 85 


001256 


ABSD AND TSTD TEST 
ADD ANATERT,R5 
RO 


11$: CMP (RO) +, (R2)+ 
BNE 12$ ;BRANCH IF NOT ANTICIPATED. 
SOB R3,11$ 


THE ERROR WAS ANTICIPATED SO RETURN. 
JMP 42(R1) 
3 THE eae WAS NOT ANTICIPATED SO REPORT IT HERE. 
128: (R5) :GO TO THE PROPER ERROR CALL. 
THE FPS WAS INCORRECT. 
15$: CMP 36(R1),R5 :WAS THIS ERROR AN! ICIPATED? 
BNE 16$ ;BRANCH IF NOT ANTICIPATED. 


THE FPS ERROR WAS ANTICIPATED SO RETURN. 
JMP 46(R1) 


;THE FPS FAILURE WAS NOT ANTICIPATED SO REPORT IT HERE. 
16$: MOV (R1) ,R2 


ASL 

ASL R2 

ADD #NATER2,R2 

JMP (R2) :GO TO THE PROPER ERROR CALL. 


REPORT THAT THE FEC WAS INCORRECT. 

20$: MOV 40(R1) ,aASTMPI2 
MOV R5,a4$TMP11 

MOV + Na 


ASL 

ASL R2 

ADD #NATERS,R2 

JMP (R2) :GO TO THE PROPER ERROR CALL. 
; THESE ARE THE ERROR CALLS FOR EACH INDIVIDUAL INSTRUCTION AND CONDITION. 
NATER1: ERROR 2 :NEGD BAD DATA 

BR NATRET 

ERROR 2 :ABSD BAD DATA 

BR NATRET 

ERROR 2 ;TSTD BAD DATA 


NATRET: JMP 50(R1) 
FPS INCORRECT: 


NATER2: — 2 iNEGD FPSX 
NATRET 

ERROR 2 sABSD FPSX 
BR NATRET 

ERROR 2 :TSTD FPSX 
BR NATRET 


:FEC_ INCORRECT: 
NATER3: ERROR 2 sNEGD FECX 


SEQ 0085 
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BR NATRET 
ERROR 2 ABSD FECX 
BR NATRET 
ERROR ? sTSTD FECX 
BR NATRET 


177777 -WORD  =1 
177777 «177777 «=9177777 ~=NATBF1: .WORD =1,-1,-1,-1,-1 
017056 177777 177777 


017062 WWEDONE : 

017062 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH oe (HAS 
; THE USER TYPED CONTROL G?) 


FREER KERR EKER EERE EKER EERE EERE EE 


“TEST 45 SOURCE MODES, MODE 1 (FL=0), TEST 
TT 


THIS IS A TEST OF SOURCE MODE 1 
USING THE LDFPS INSTR 


SRE EERE EKEREEREREEERERERERER EEK 


017064 000004 745: SCOPE 
017066 
017066 104414 SET UP THE LOOP ON ERROR ADDRESS. 
017070 012700 017146 #AACTP1,RO SET UP TEST DATA IN BUFFER. 
7 #147517, (RO) 
001240 #147517, tie SAVE DATA IN CASE OF ERROR. 
001236 H#AAC2 ,AASTMP2 
017206 000004 MOV PAACON a SPERRVECT SET UP FOP TRAPS TO 4. 
017122 170710 : (RO) ;TEST INSTRUCTION. 
017124 170205 R5 GET FPS 
017126 020027 017146 RO,AAACTP 1 31S RO CORRECT? 
1 AAC1 :BR IF NOT. 
147517 #147517,R5 71S FPS CORRECT? 
AAC11 :BR IF NOT. 
AACDONE 
TEST BUFFER AND DATA: 
AACTP1: rgrete 
eit wd # INCORRECT. 
017146 001240 AAC10: RO, aH APG - OAS TMP3 


001242 MOV RO 
1$: ERROR RO BAD BuT FSRC FAILED 
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017166 


017170 
017176 


017240 


017242 
017242 


017244 


017246 
017246 


017250 


66 
017274 
017302 
017304 


017306 
017312 
017314 
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000425 


012737 
170120 
170205 
020027 


001007 
022705 


147517 
001242 


017124 
017126 
036172 
001236 


017330 
145212 


7 
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001240 


001240 
001236 
000004 


87 
SOURCE MODES, MODE 1 (FL=0), TEST 
BR AACDONE 


;REPORT FPS INCORRECT. 
AAC11: nad #147517, ss REPORT FPS INCORRECT. 


R5,a4$TMP 
1$: ERROR 1 
BR AACDONE 


; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
sEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
a OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 


MOV (SP) ,R2 
CMP R2,MAAC2+2 


BEQ 
CMP R2,MAAC2+4 
BEQ 1$ 
JMP @4CPSPUR 
1$: CMP (SP) +, (SP)+ 
MOV R2, 04S TMP2 
2$: ERROR 1 ;0DD ADRES 
BR AACDONE ;BUT FDSTX IN ST 771 
AACDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOF TWARE 
: VIRTUAL CONSOLE SWITCH REGISTER (HAS 
> THE USER TYPED CONTROL G?). 
FARRER EKER RK EEE ERE EERE EKER EEE REREKERRERREKEKEEE 
SSTEST 46 SOURCE MODES, MODE 2 (FL=0), TEST 
3* 
is THIS IS A TEST OF SOURCE MODE 2 
:* USING THE LDFPS INSTR 
** 
+; LARR SALA AA2 ES ESSESELESESS SEES SESS SE RE ESSE SESE ES ECCS SESE SSCS E SES 
TST46: SCOPE 
BBC1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV #BBCTP1,RO 7SET UP TEST DATA IN BUFFER. 


MOV #145212. (RO) 

MOV #145212. a#$TMP3 ;SAVE DATA IN CASE OF ERROR. 
MOV #BBCO, aASTMP2 

MOV #BBC20,a#ERRVECT ;SET UP FOR TRAPS TO 4. 


BBC2: LDFPS (RO)+ TEST INSTRUCTION. 


STFPS = R5 GET FPS 
CMP RO, ABBCTP1+2 21S RO CORRECT? 
BNE 1 IF 


:BR NOT. 
CMP #145212,R5 TIS THE FPS CORRECT? 


SEQ 0087 
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017320 001013 BNE BBC11 ;BR IF NOT. 
017322 000436 BR BBCDONE 


: TEST BUFFER AND DATA: 
017324 177777 - 


177777 BBCTP1: .WORD <1 
177777 -1 


;REPORT —# INCORRECT. 
012737 017330 001240 68C10: rs HAMS, aA4$TMP3 
010037 001242 


RO BAD BUT FSRC FAILED 
BBCDONE 


: FPS INCORRECT 
012737 145212 001240 : #145212, -~ eae REPORT FPS INCORRECT. 
001242 a4¥$ TMP. 


1 
BBCDONE 


; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
SEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
iF AILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 


(SP) ,R2 
017304 Re .WBBC2+2 


017306 Re AERC On 


036172 @4CPSPUR 
: (SP)+, (SP)+ 
001236 MOV R2,a4$STMP2 
017416 10400 : 1 ;0DD ADRES 
BUT FDSTX IN ST 771 


017420 : 
017420 104413 +73 INITIALIZE THE FPS AND STACK; AND 


; E SOF TWARE 
VIRTUAL CONSOLE SWITCH ee (HAS 
THE USER TYPED CONTROL G?) 


FRE RRR RK ERK ERE EERE REE ERE REE EEKEK 


TATEST 47 SOURCE MODES, MODE 4 (FL=0), TEST 
;* 


THIS IS A TEST OF SOURCE MODE 4 
USING THE LDFPS INSTR 


ERA RRR KERR ERK EERE KERR EERE KKK KEE 


147: SCOPE 


oe 
** 
** 
o 
S 


017422 000004 i 
D 


017424 C1: 
017424 104414 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
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017426 


177777 
177777 
017524 177777 
017526 012737 017514 
001242 


105252 
001242 


017464 
017466 
036172 
001236 


017614 


017616 


017724 
0 017714 
017632 ? 103456 


. F 
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177776 
001240 


177777 
177777 


001240 


001240 


000054 


89 
E MODES, MODE 4 (FL=0), TEST 


#DDCTP1+2,R0 
#105252,-2(RO) 


SET UP THE TEST DATA BUFFER. 


#105252,aA$TMP3 ;SAVE DATA IN CASE OF ERROR. 
a4STMP2 


#DDC2, a4 
moc. @#ERRVEC 


-(RO 
R5 
ee" 
#105252,R5 
DDC11 
DDCDONE 
-1,-1,-1,-1 
DDCTP1: =1 
-1,-1,°1,-1 


DDC10: #DDCTP1, a#$TMP3 
ms MO RO. a#STMP4 

; BR DDCDONE 
DDC11: #105252, a4$TMP3 
m= MO R5, a#STMPS 


DDC20: 
R2 ADDC2+2 


+: iat 
@4CPSPUR 


1$: (SP)+, (SP)+ 
- aieatial tit 


2$: 
opened 


RO BAD BUT FSRC FAILED 
REPORT FPS INCORRECT. 


:DDD ADRES 


:GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH +} hie (HAS 
THE USER TYPED CONTROL G?) 


DAIS III IIOIIIOIIOIISIOIDIIOIIIOI IIIS OOOO OUI IOI IIE EUR ttt bik 


SRTEST 50 SOURCE MODES, MODE 3 (FL=0), TEST 
** 
THIS IS A TEST OF SOURCE MODE 3 


USING THE LDFPS INSTR 


HitLef RO 
V MEEC (RO) 
MOV 7108456. EECIPI 


SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0089 
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017752 
017754 
017762 
017766 
017770 


017772 


012737 


177777 


012737 


012737 
010537 
104001 
000415 


011602 


17 
019993 


017726 
103456 


177777 


177777 
177777 
000000 


017726 
001242 


103456 
001242 


017664 
017666 
036172 
001236 
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001240 


177777 


177777 
177777 


001240 


001240 


90 
E MODES, MODE 3 (FL=0), TEST 


#103456, a#STMP3 
HEEC2, a4$TMP2 
meEC0, @WERRVECT ;SET UP FOR TRAPS TO 4. 
a(R :TEST INSTRUCTION. 

agro ‘GET THE FPS. 
RO,MEECTP2+2 31S RO CORRECT? 

E ‘BR IF NOT. 
#103456,R5 ‘IS THE FPS CORRECT? 
EEC11 ‘BR IF NOT. 
EECDONE 


TEST BUFFER AND pe 


= = = 
e e - 


EECTP1: “1 yi 
EECTP2: EECTP1,-1,-1,-1, 


;REPORT ~# INCORRECT. 
EEC10: aig hg wf a4$TMP3 
MOV RO, a4$TMP 


1$: ERROR 1 RO BAD BUT FSRC FAILED 
BR EECDONE 


REPORT FPS INCORRECT. 

EEC11: MOV #103456, a#STMP3 ;REPORT FPS INCORRECT. 
MOV R5 ,@#STMP4 

1$: ERROR 1 


BR EECDONE 
: TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 
EE C20: MOV (SP) ,R2 
Ree ,AEEC2+2 
R2 ,AEEC2+4 
1$ 


@4CPSPUR 
1$: (SP)+, (SP)+ 
MOV Gc. OeSTre 


:DDD ADRES 
:GO a ee ae THE FPS AND STACK; AND 


2$: 
EECDONE : 


; E SO 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


DCEO ISIC ISIS IOI ISIS IIDC IOI IOIIOSEIIIUO SINS iii 


SATEST 51 SOURCE MODES, MODE 5 (FL=0), TEST 


** 
:* THIS IS A TEST OF SOURCE MODE 5 
:* USING THE LDFPS INSTR 


** 
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020114 


020116 


020154 


020156 
020164 
020170 
020172 


020174 
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177777 
012737 
010037 
000424 


012737 
010537 
104001 


000415 


011602 


104413 


020132 
0 
020174 


020130 
045412 


177777 
177777 


020130 
001242 


020076 


020100 


036172 
001236 
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17777 
02012 
001240 
001236 
000004 


177777 
177777 


001240 


001240 


NPAGE 91 
SOURCE MODES, MODE 5 (FL=0), TEST 


SARA EE EERE ERERREREKEKEEEERREEKKEERERREEREKEEEKEEREEERR 


t8151: SCOPE 
_ 3SET UP THE LOOP ON ERROR ADDRESS. 


MFFCTP2+2 Mo) 7SET UP THE TEST DATA BUFFER, 


. CTP1 
MOV #45412, Q#STMP3 ;SAVE DATA IN CASE OF ERROR. 
MOV #FFC1 ,@ASTMP2 


MOV mr C20, @WERRVECT :SET UP FOR TRAPS TO 4. 
FFC2: LDFPS a(R :TEST INSTRUCTION. 

STFPS RS “GET THE FPS. 

CMP RO,AFFCTP2 [I$ RO CORRECT? 

BNE FFC10 ‘BR IF NOT. 

CMP #45412,R5 ‘IS THE FPS CORRECT? 

BNE FFC11 ‘BR IF NOT. 

BR FF CDONE 


;TEST BUFFER AND DATA: 
FFCTP1: =1 

-1,-1,-1 
FFCTP2: FFCTP1,-1,-1,-1 


zREPORT RO INCORRECT. 

FFC10: MOV Aptis # O4STMPS 
MOV RO, @#STMP4 

1$: ERROR 1 RO BAD BUT FSRC FAILED 
BR FF CDONE 


sREPORT FPS INCORRECT. 
FFC11: oa og E+ saa REPORT FPS INCORRECT. 


V R5 ,a#$T 
1$: ERROR 1 
BR FF CDONE 
: TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
sEXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
JFAILURE OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 


(SP) ,R2 
CMP ae. ,AFFC2+2 


BEQ 
CMP R2,AFFC2+4 
BEQ 1$ 
JMP @4CPSPUR 
1$: CMP (SP)+, (SP)+ 
MOV Re. ar$TMP2 
2$: ERROR ;0DD ADRES 
FF CDONE: 
RSETUP 3GO INITIALIZE THE FPS AND STACK; AND 
; SEE IF THE USER HAS EXPRESSED 


: E SOF TWAR 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


SEQ 0091 
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020320 


020322 


020352 


020354 
020362 
366 


020 
020370 


020372 
020400 
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177777 
177777 
177777 
177777 


012737 
010037 
104001 
0004 34 
012737 
010437 
104001 
000425 


012737 


011602 
020227 
001405 


11:22 


013123 


020272 


020412 
005201 


013123 
046543 


177777 


013123 
001242 


046543 
001242 


020276 
020274 


020274 


B 8 
MACY11 —_—e 20-JUN=79 11:39 PAGE 


020324 
001240 
001236 


000004 


177777 


001240 


001240 


001240 
001242 


92 
SOURCE MODES, MODE 6 (FL=0), TEST 


FERRARA ARR A REAR EKER AREER EEEREKEEERAEERREREEREERERAEREEREE EEE 


TATEST 52 SOURCE MODES, MODE 6 (FL=0), TEST 
-* 


THIS IS A TEST OF SOURCE MODE 6 
USING THE LDFPS INSTR 


SET UP THE LOOP ON ERROR ite 
#GGCTP1- awerien 7SET UP THE TEST DATA BUFFER 


SAVE DATA IN CASE OF ERROR. 
wGGC2, , A$ TMP 


eoete’ @AMERRVECT ; SET UP FOR TRAPS TO 4, 

5201 (RO) ;TEST INSTRUCTION. 

RS 3GET THE FPS. 

R WAS oo“ AFTER EXECUTION? 


GGC25 SBR 

RO,AGGCTP1=5201 ;IS RO weer 
GGC10 :BR IF 

#46543 ,R4 1S THE PPS CORRECT? 
GGC11 BR IF NOT. 

GGCDONE 


i TEST wart AND DATA: 
GGCTP1: -1,-1,-1,-1 
-1 


REPORT RO INCORRECT. 
GGC10: V RO, aASIMPS -5201 ,a#$TMP3 


1$: RO BAD BUT FSRC FAILED 
GGCDONE 


;REPORT FPS INCORRECT. 

GGCi1: MOV #46543, oe REPORT FPS INCORRECT. 
MOV R4, aS TMP 

1$: ERROR 1 
BR GGCDONE 


REPORT PC INCORRECT AFTER INSTRUCTION. 
GGC25: MOV #GGC2+4 , aMSTMPS 

MOV AGGC2+2, a#STMPS 
1$: ERROR 1 sPC X 


BR GGCDONE 
; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
sFAILURE. OTHERWISE | TO THE SPURIOUS TRAP TO 4 HANDLING. 
GGC20: MOV (SP), 

CMP Ree weet 22 

BEQ 1$ 
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020544 


020546 


020227 


104413 


177777 


012737 


012737 
010437 


020276 
036172 
001236 


013357 
ae ee 
004547 

004547 
020516 


020644 
005201 


013357 
004547 


177777 
177777 


013357 
001242 


004547 
001242 
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000004 


177777 
177777 


001240 


001240 


E MODES, MODE 6 (FL=0), TEST 
R2,AGGC2+4 
1$ 


@ACPSPUR 
1$: (SP)+,(SP)+ 
Re. av$TMP2 
;0DD ADRES 


;GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH SEStSTER (HAS 
; THE USER TYPED CONTROL G?) 


Md ETT ITISTITISIISTITITITIITITTIITITI LITT TITTTTT TTT iTTTTiTeTTT Tite 


SRTEST 53 SOURCE MODES, MODE 7 (FL=0), TEST 


THIS IS A TEST OF SOURCE MODE 7 
USING THE LDFPS INSTR 


Sak. cape ee 


23: 
oe? 


** 
** 
-* 
** 
° 
is 


SET UP THE LOOP ON ERROR ADDRESS. 
MHHC TP2=5201 ,RO SSET UP THE TEST DATA BUFFER. 
#HHCTP1 , 5201 (RO) 
#4547, aMHHCTP1 
#4547 ,@ASTMP3  ;SAVE DATA IN CASE OF ERROR. 
Ones -@A4$TMP2 


1 
MHHC20 ,aMERRVECT ;SET UP FOR TRAPS TO 4. 

@5201(RO) ;TEST INSTRUCTION. 
R4 :GET THE FPS. 
R1 ;WAS PC CORRECT AFTER EXECUTION? 
HHC 25 IF NOT. 
RO,AHHCTP2=5201 :1S RO CORRECT? 
HHC 10 BR IF NOT. 
#4547 ,R4 Z1S THE FPS CORRECT? 
HHC 11 NOT. 


:BR IF 
HHCDONE 


: TEST war’ ‘a AND DATA: 
HHCTP1: .WORD -1,-1,-1,-1 
HHCTP2: .WORD -1,-1,-1,-1 
s;REPORT RO INCORRECT. 
HHC10: MOV RO. aHSTMPS . @ASTMPS 


RO BAD BUT FSRC FAILED 
HHCDONE 


REPORT FPS INCORRECT. 
HHC11: MOV #4547, aA$TMP3  ;REPORT FPS INCORRECT. 
MOV R4, aASTMP4 
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020620 
020622 


020624 
020632 
020640 


020700 
020702 


020740 


020742 
020746 


177027 
005201 
005201 
005201 
005201 


020127 
001421 


020522 001249 
020520 001242 


020520 
020522 
036172 
001236 


020730 001236 
021002 000004 
000300 


000003 
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SOURCE MODES, MODE 7 (FL=0), TEST 


1$: ERROR 1 
BR HHCDONE 


REPORT PC INCORRECT AFTER INSTRUCTION. 
HHC25: MOV MHHC2+4 , AAS TMP3 

MOV MHHC2+2 , AAS TMPS 
1$: ERROR 1 sPC X 


BR HHCDONE 
; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
;FAILURE. OTHERWISE G GO_TO THE SPURIOUS TRAP TO 4 HANDLING. 


( 
R2,#HHC2+2 
R2,AHHC2+4 
1$ 


@4CPSPUR 
1$: (SP)+, (SP)+ 
R2,a4$TMP2 
1 :DDD ADDRESS 


:GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


2$: 
teenie 


DKK RIKKI KERRIER KEE KKK Kk 


: TEST 54 SOURCE MODES, MODE 2 GR7 (FL=1), TEST 


:* THIS IS A TEST OF THE LDCLD WITH 
;* IMMECIATE ADDRESSING MODE 


* 
BRO ICICI IOI ORI TOT ITI IAAI IAI IISSIIS IIIS AANA AM. 
ST54: 
IC1: 
SET UP THE LOOP ON ERROR ADDRESS. 
ERROR. 


M#11C2,a4STMP2 SAVE DATA IN CASE OF 
#1 1¢20,aWERRVECT” 7SET UP FOR TRAPS TO 4. 


R1 
(R7)+,ACO TEST INSTRUCTION. 


R143 sWAS PC CORRECT AFTER EXECUTION? 
I 1 CDONE :BR IF YES. 
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154 SOURCE MODES, MODE 2 GR? (FL=1), TEST 

REPORT PC INCORRECT AFTER INSTRUCTION. 

012704 020734 11C3: MOV #IIC2+4,R4 
162701 000003 S #3,R1 
006301 R1 
160104 R1,R4 

001242 


010437 R4 , aASTMPS 
012737 020734 001240 MO A#IIC2+4 ,AASTMPS 
104001 1$: . 1 :BAD CONSTANT 


I ICDONE 
; TRAP HERE THROUGH VECTOR FOUR. SEE IF THE TRAP WAS DURING 
EXECUTION OF THE FPS INSTRUCTION BEING TESTED. IF SO REPORT 
:FAILURE. OTHERWISE GO TO THE SPURIOUS TRAP TO 4 HANDLING. 
011637 001236 11C20: MOV (SP) ,a#$TMP2 
022626 CMP (SP)+,(SP)+ 
104001 1$: ERROR 1 BAD CONSTANT ODD ADD 


II CDONE : 
104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
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DD FI II II IOI IOI IORI IOI ITO IO IOI TOI TOO IIIA AAAI SAS SASISIA SASSI ISIS I IN SAI 
s*TEST 55 SOURCE MODES, MODE 2 (FL=1), TEST 

+t 

:* THIS IS A TEST OF THE LDCLD INSTR 

3* WITH MODE 2. 

* 


SIRE KR REE EEE EER EERE EERE EERE ER 


021014 TST55: SCOPE 


021016 TCC1: 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
000014 001236 MOV TCC2,a4STMP2 SAVE DATA IN CASE OF ERROR. 
000300 MOV #300.RO 
LDFPS RO 
021130 MOV ATCCBFO,RO SET UP THE TEST DATA BUFFER, 
LDCLD = (RO)+,ACO TEST INSTRUCTION. 


R4 GET THE FPS. 
021140 ATCCBF1,R1 :GET THE RESULT. 
000200 #200,R2 


NONMINONONPENDNNN NY 2 Ss Ss PS Be 


R2 
ACO, (R1) 
021134 RO, ATCCBFO+4 71S RO CORRECT? 
BEQ TCC3 
REPORT RO INCORRECT. 
010037 001242 MOV RO, a#STMP4 
012737 021134 001240 MOV ATCCBFO+4 ,a#$TMP3 
104001 1$: ERROR 1 :BAD CONST 
000422 BR 1 CCDONE 


022704 000300 CMP #300 


eR4 ;1S THE FPS CORRECT? 
001417 BEQ TCCDONE 


51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 


HBHRHRRRHROW 
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147 


vi 


:REPORT FPS INCORRECT. 
001242 MOV R4, AAS TMPS 
000300 001240 MOV #500, a¥STMP3 


1$: OR 
BR TCCDONE 


TEST BUFFER AND DATA: 
067076 054321 TCCBFO: .WORD 01234,67076,54321,012345 


177777 «177777 = TCCBF1: =1,-1,-1,-1 


TCCDONE : 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


AADBMNAIAUIAUTUT SS 
TRARISSRSNFALANUSSS 


PUPS SV SVSVSV SV SIPS SIA ST STS 
wi 


FD KIRK KKK KKK KKK IK KKK EKER KEKE KKK 


S*TEST 56 LDCIF AND LDCLF TEST 


* 
:* THIS IS A TEST OF THE LDCIF AND 
;* THE LDCLF INSTRUCTIONS. 

** 


RANVSSELE 


NN NNNWO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
; 
1 
1 
j 
1 
1 
1 
1 
; 
; 
; 
1 
1 


“I 
awn 


* 
FF III III KIKI IKK KKK KEKE KEKE KEE KEKE KKK 


021152 TST56: SCOPE 


OPERAND FL=0 


021154 : 
021154 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
021156 004737 022306 PC ,a@ALDCF SUB :GO EXECUTE INSTRUCTION. 


021162 000000 : 0.0 :FSRC OPERAND. 
000000 000000 : - WOR 0,0 sEXPECTED RESULT. 
177777 : . -1,°1 sANTICIPATED ERRONEOUS RESULT. 
3 0 :FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


MAAA AAAI A Aa TO UI I I 
— td ed 
Onw~N 
OOON 


ft eS SS SS Ss SS SS se So os st 
SSSLESRAVLSSELERRALTS 


021212 
OPERAND 


021212 
021212 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
021214 022306 JSR PC ,a4LDCF SUB :GO EXECUTE THE INSTRUCTION, 


021220 177777 : «WORD 0,-1 :FSRC OPERAND. 


PADAAAAYIA AAT 


fN 
SS 
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021224 000000 000000 : WORD 0 ZEXPECTED RESULT. 
004177 177400 : i19R 77969 : ANTICIPATED ERRONEOUS RESULT. 

: 0 :FPS BEFORE EXECUTION. 
000904 [FPS AFTER EXECUTION. 
177777 TANTICIPATED ERRONEOUS FPS. 
104001 : *(BUT FL) ST 
000401 BR 6$ :277 TO 300 
104001 ‘INTO 301 
OPERAND 


021250 


021250 : 
021250 ;SET_ UP THE LOOP ON ERROR ADDRESS. 
021252 022306 . :GO EXECUTE THE INSTRUCTION. 


021256 000000 000000 : . WOR :FSRC OPERAND. 
000000 : EXPECTED RESULT. 
177777 : . WOR ° :ANTICIPATED Securion RESULT. 


[REPORT RESULT INCORRECT. 
CLR'ED 
POSITIVE FL=0 


:SET UP THE LOOP ON ERROR ADDRESS. 
022306 PC ,aALDCF SUB :GO EXECUTE THE INSTRUCTION. 
000000 : . 40000,0 :FSRC OPERAND. 
000000 2$: 43600,0 EXPECTED RESULT. 
000000 : i¥ 47600,0 :ANTICIPATED apg} ag RESULT. 


; ECUTION. 
ANTICIPATED ERRONEOUS FPS. 
7ST 107 BAD 
3 goed 231 INSD 


:SET UP THE LOOP ON ERROR ADDRESS. 
022306 JS PC ,a4LDCF SUB £60 EXECUTE THE INSTRUCTION. 
000000 1$: : 1,0 FSRC OPERAND. 
000000 : “WORD  40200,0 T EXPECTED RESUL 
000000 : ‘ 44200.0 S ANTICIPATED ERRONEOUS RESULT. 
4$: sFPS BEFORE EXECUTION 
“FPS AFTER EXECUTION. | 
SANTICIPATED ERRONEOUS FPS. 
SREPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 
021462 


; OPERAND= PATTERN FL=0 
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021402 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC,@#LDCFSUB § :GO EXECUTE THE INSTRUCTION. 
252,0 :FSRC OPERAND. 
42052,0 TEXPECTED RESUL 
46052.0 SANTI CIPATED UE RONEOUS RESULT. 


ANTICIPATED ERRONEOUS FPS. 
;REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


2 

921440 6$: 

; OPERAND=-40000 
KKC7: 


021440 
:SET_UP THE LOOP ON ERROR ADDRESS. 
022306 PC ,a@#LDCF SUB :GO EXECUTE THE INSTRUCTION. 
000000 : . -40000,0 zFSRC OPE 
000000 : ° 143600,0 EXPECTED RESUL 
000000 : . 43600,0 ANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
‘s (SET SIGN) ST 146 


1 ;REPORT FPS INCORRECT. 
021476 


: OPERAND==-1 FL-0 
021476 KKC8: 
;SET UP THE LOOP ON ERROR ADDRESS. 
022306 JS PC ,a4LDCF SUB 3GO EXECUTE THE INSTRUCTION. 
000000 : 4 -1, 3FSRC OPERAND. 
140200, 0 somectee RESULT. 
144000,400 ANTICIPATED ERRONEOUS RESULT. 
ZFPS BEFORE On ION, 
sFPS AFTER EXECUTION. 
TANTICIPATED ERRONEOUS FPS. 
is! #6 To ts § INTO 


12 (BUF XNBT) 
;REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
>G0 OS SESREOPERAND 


: . EXPECTED RESUL 
126000 : . 00 ANTICIPATED ERRONEOUS RESULT. 
$: ;FPS BEFORE EXECUTION 
[FPS AFTER EXECUTION. - 
s:ANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 


SESSae 


WWWNWAWGS 
ad ad nd ed ed 
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5315 021570 104001 ERROR 1 ;REPORT FPS INCORRECT. 
a316 021572 6$: 
5318 ; OPERAND POS ss FL=1 
$319 021572 kkC10: 
5320 021572 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5321 021574 004737 022306 JSR PC, @ALDCFSUB = GO EXECUTE THE INSTRUCTION. 
5322 021600 040000 000000 1$: WORD  40000.0 FSRC OPERAND. 
5323 021604 047600 000000 2$: “WORD 47600.0 EXPECTED RESULT. 
5324 021610 043600 000000 3$: “WORD 43600.0 ZANT ICIPATED ERRONEOUS RESULT. 
5325 021614 000117 4$: i17 ZFPS BEFORE EXECUT 
5326 021616 000100 100 FPS AFTER EXECUTION. | 
5327 021620 177777 -1 :ANTICIPATED ERRONEOUS FPS. 
5328 021622 104001 5$: ERROR 1 T 107.C 
5329 021624 000401 BR 6$ BAD 287 INST 317 
§330 021626 104001 ERROR 1 REPORT FPS INCORRECT. 
5331 021630 6S: 
5332 
5333 OPERAND=1 FL=1 
5334 021630 KC11: 
5335 021630 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5336 021632 004737 022306 JSR PC, @#LDCFSUB = GO EXECUTE THE INSTRUCTION. 
5337 021636 000000 000001 1$: WORD 0,1 FSRC OPERAND. 
5338 021642 040200 000000 23: “WORD 40200.0 EXPECTED RESULT 
5339 021646 034200 000000 3$: “WORD  34200-0 ANTICIPATED ERRONEOUS RESULT. 
5340 021652 000100 48: 100 FPS BEFORE EXECUTION. 
5341 021654 000100 100 FPS AFTER EXECUTION. 
5342 021656 177777 ot ZANTICIPATED ERRONEOUS FPS. 
5343 021660 104001 5$: ERROR 1 ;REPORT RESULT INCORRECT. 
5344 021662 000401 BR 6$ 
5345 021664 104001 ERROR 1 sREPORT FPS INCORRECT. 
5346 021666 6$: 
5347 
5348 : OPERAND= PATTERN FL=1 
5349 021666 KKCl2: 
5350 021666 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5351 021670 004737 022306 JSR PC, @ALDCFSUB = GO EXECUTE THE INSTRUCTION. 
5352 021674 000000 000252 1$: “WORD 0,252 FSRC OPERAND. 
5353 021700 042052 000000 2$: "WORD —-45083,0 EXPECTED RESULT. 
5354 021704 026052 000000 3$: "WORD 360890 ANTICIPATED ERRONEOUS RESULT. 
5355 021710 000111 4s: i11 ZFPS BEFORE EXECUTION. 
5356 021712 000100 100 ZFPS AFTER EXECUTION. 
5357 021714 177777 of ANTICIPATED ERRONEOUS FPS. 
5358 021716 104001 5$: ERROR 1 SREPORT RESULT INCORRECT. 
5359 021720 000401 BR 6$ 
5360 021722 104001 ERROR 1 REPORT FPS INCORRECT. 
5361 021724 6$: 
5362 
5363 : OPERAND=-40000,0 FL=1 
5364 021724 kkC13: 
5365 021724 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5366 021726 004737 022306 JSR PC, @WLDCFSUB = :GO_ EXECUTE THE INSTRUCTION. 
5367 021732 140000 000000 1$: WORD -40000,0 FSRC OPERAND. 
5368 021736 147600 000000 2$: “WORD 147600-0 EXPECTED RESULT. 
5369 021742 047600 000000 3$: “WORD 47600,0 ANTICIPATED ERRONEOUS RESULT. 
5370 021746 000107 4$: i07 ZFPS BEFORE EXECUTION. 
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CJKDDA.P11 
021750 


0217 
021762 


021762 


022020 


022020 


022056 


022056 


022114 
022114 
022116 


104414 


004737 


022306 


125253 


Oo 208 


177776 


022306 


eH 
F AND LDCLF TEST 


MACY11 aw * Manat 

T56 
5$: 

6 

1 
6$: 
;OPERAND=-1,-1 FL=1 
KKC14: 


a 


146200,0 
150000.0 


1 
6$ 
; 


6$ 
; 


FL=1, 


; OPERAND=77777,177500 
KKC16: 


@A4LDCF SUB 
Sea 177500 


47777,177776 


1 
6$ 
1 


;OPERAND=40000,000100 ~=«FL=1, 
KKC17: 


LPERR 
JSR PC ,@4LDCF SUB 


J 8 
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FPS AFTER EXECUTION. 
: ANTICIPATED ERRONEOUS FPS. 
ET SIGN 


REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 
:FSRC OPERAND. 
sEXPECTED RESULT 
ANTICIPATED ERRONEOUS RESULT. 
;FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
(BUT XNBT) 


REPORT FPS INCORRECT. 


ROUND MODE 


SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 
:FSRC OPERAND. 


ZEXPECTED RESUL 


: ANTICIPATED ERRONEOUS RESULT. 


3FPS BEFORE EXECUTION. 
iF ON 


REPORT RESULT INCORRECT. 
sREPORT FPS INCORRECT. 


ROUND MODE 


SET UP THE LOOP ON ERROR ADDRESS. 
:G0 meg THE INSTRUCTION, 

FSRC OPE * 

EXPECTED RESU 

ANTICIPATED ERRONEOUS RESULT. 

sFPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
:ST 631 INTO RND 


REPORT FPS INCORRECT. 


ROUND MODE 


;SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION, 


SEQ 0100 





8 
CJKDDA KEF11=A_DIAG PART 2 MACY11 — sftp eo 11: ts "PAGE 101 
CJKDDA.P11 20-JUN=79 11:22 T56 DCIF AND LDCLF T 


022122 040000 000100 : - eo! OPERAND. 
000001 2$: ° sEXPECTED R ULT. 
000000 : : ANTICIPATED ERRONEOUS RESULT. 


SANTICIPATED ERRONEOUS FPS. 
sREPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 
022152 


;OPERAND=40000.000100 FL=1, + TRUNC MODE 
KKC18: 


R SET UP THE LOOP ON ERROR ADDRESS. 
022306 aT gt ;G0 EXECUTE THE INSTRUCTION. 
000100 40000. 100 FSRC OPERAND. 

47600,0 ZEXPECTED RESULT. 
47600,1 ANTICIPATED sertion RESULT. 
FPS BEFORE EXECUTI 
FPS AFTER EXECUTION 
ANTICIPATED ERMRONE GUS FPS. 
7ST 631 ... INTO TRNC 


BR 6$ 
oe ERROR 1 :REPORT FPS INCORRECT. 
;OPERAND=100000,0 (MOST NEG #) FL=0 
KKC19: 


SET UP THE LOOP ON ERROR ADDRESS. 
PC ,@4LDCF SUB :GO EXECUTE THE INSTRUCTION. 
:FSRC OPERAND. 


106000, 0 
44000,0 ae Sike RESULT. 
143600. 0 ANTICIPATED ERRONEOUS RESULT. 
sFPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
3ST 630 RH*R14+1 


REPORT FPS INCORRECT. 


022152 


0222 
022210 
022216 


022246 


022246 
SET UP THE LOOP ON ERROR ADDRESS. 
>G0 OESTESRE OPERAND 


1$: 
2$: 4 0 Zs EXPECTED 
3$: .WOR ANT FCIPATER® PRRONEOUS RESULT. 
4$: :FPS BEFORE Ene CUT 10M. 
[FPS AFTER EXECUTION. 
SANT ICIPATED ERRONEOUS FPS. 
5$: SREPORT RESULT INCORRECT. 


ERROR 1 REPORT FPS INCORRECT. 
6$: BR KKCDONE 


“¢THIS SUBROUTINE, LDCFSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
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022324 
022326 


022420 


012601 


010100 
177010 


174010 
012702 


022022 


000014 
022326 


022512 
000200 


022512 
001242 
001240 


000004 
000002 
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001236 


001252 


LDCIF AND LDCLF TEST 


tty LDCIF OR get INSTRUCTION AND CHECK THE RESULTS. A CALL 
:T0 IT IS MADE THUS: 
PC ,@4LDCF SUB 
WORD X,X C_OPERAND 
ZEXPECTED RESULT 
RESULT 
TFPS “BEFORE EXECUTION 
FPS AFTER EXECUTION 


ERROR FPS 
DATA ERROR 
CONT 


sFPS ERROR 
;RETURN ADDRESS 


“THE OPERANDS ARE SET UP (USING ACO AS ye ACCUMULATOR). THEN 
2 THE LOCIF OR LDCLF INSTRUCTION IS EXECUTED. 


;COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN ot WILL RETURN 
:TO THE ERROR CALL AT ERR2, OTHERWISE LDCFSUB ITSELF 
REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
SLDCIF OR LDCLF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
;THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN LDCFSUB 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
sRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND LDCFSUB 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


LDCF SUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
+ * > Naas SET THE FPS. 


MOV #1$ ,aASTMP2 
MOV R1,RO 


LDCIF (RO),ACO TEST INSTRUCTION LDCIF OR LDCLF. 


R4 :GET FPS. 
ee GET THE RESULT. 


ACO, (RO) 
#LDCT R2 SEE IF THE RESULT WAS CORRECT. 


R2 ,@ASTMPS4 
a anes 


#4 ,R3 
R3,aASTMPS 
R4,aASTMP7 
16(R1) -@ASTMP10 
1,RO 
oy ~RO 
#2,R3 
(RO)+, (R2)+ 


SEQ 0102 
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022422 
022424 


022426 


022432 
022434 


022440 


022470 


022470 
022472 


022474 
022500 
022502 


022506 
022506 
022510 


022512 
022520 


022522 
022522 


022524 


022526 
022526 
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001006 
077303 


104001 
000760 


026104 
001002 
000161 


104001 
000751 


11:22 


000016 
000030 


022512 


000010 
000002 


000022 


000020 
000026 


000000 000000 
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LDCIF AND LDCLF TEST 
10$ BR IF INCORRECT. 
R3,2$ 
16(R1) ,R4 SEE IF THE oe . 7 CORRECT. 
BR IF INCORR 
3$: 30(R1) RETURN. 
RESULT IN CORRECT SO SEE IF THE FAILURE WAS ANTICIPATED. 
10$: MOV ALDCT,R2 
R71,RO 
#10,R0 
#2,R3 
(RO) +, (R2)+ 
13$ 
R3,11$ 
22(R1) 
ite FAILURE WAS NOT ANTICIPATED SO REPORT THE ERROR HERE. 


14$: ERROR 1 :BAD RES 
BR 3$ 


z THE FPS WAS INCORRECT SO SEE IF IT WAS ANTICIPATED. 
15$: CMP 20(R1) ,R4 


E 16 
JMP 26(R1) 
ite ERROR NOT ANTICIPATED SO REPORT IT HERE. 


17$: ERROR 1 :BAD FPS 
BR 3$ 


DATA BUFFER: 
LDCT: .WORD 0,0,0,0 


KKCDONE : 
RSE TUP :GO sy BE oe ary THE FPS AND STACK; AND 
SEE IF THE USER HAS ate) 
: THE DESIRE TO CHANGE THE SOFWARE 
;VIRTUAL_ CONSOLE SWITCH oe (HAS 
;THE USER TYPED CONTROL G?) 


FIO IOIIIIIIIOIIIOIIDIOIIOIIIOIOIOIIOIOIOIIOIOIOIIIOII IIIT TOT TOTTI OT TOT TTE 
ssTEST 57 LDCID AND LDCLD TEST 
:* THIS IS A TEST OF LDCID AND LDCLD 


‘ SISUIOISIIOIUISIIUIO III UIIIOIOISIIOIISISIIOISIOIOIUIOIOIUIOIOIOIOIOISIOIOIDIDIDIOIOIOIUIUIDIOIINE RIO IO: 
TST57: SCOPE 
; OPERAND=0 FL=0, FD=1 

LPERR SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0103 
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022574 
022574 


022706 
022710 


022710 


022740 


20=JUN=79 11 


023324 
000000 
000000 
177777 


023324 
177777 
000000 


177400 


023324 
000000 
000000 


177777 


023324 
000000 
000000 


000000 


MACY11 30A(1052) 
157 


000000 
177777 


000000 
000000 


000000 
177777 


000000 2$: 
000000 38: 


PC ,a4LDCDSUB 
0.0 
0:0,0,0 


“1,°1,°1,°1 


PC -@#LDCDSUB 
0.0,0,0 


4177,177400,0,0 


me 
0.0,0,0 
-1,-1,-1,-1 


1 
6$ 

1 

FL=0 FD=1 


PC .@¥LDCDSUB 
43600,0,0,0 
47600,0,0,0 


8 
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PERE OPERA THE INSTRUCTION. 
EXPECTED RESULT. 
sANTICIPATED ERRONEOUS RESULT. 


zFPS BEFORE EXECUTION. 


[REPORT RESULT INCORRECT. — 
;REPORT FPS INCORRECT. 


SET _UP THE LOOP ON ERROR ADDRESS. 


:GO EXECUTE THE INSTRUCTION. 
SFSRC OPERAND. 
SEXPECTED RESULT. 


sANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE ay tt gh gg 
FPS AFTER EXECUTION. 
Mut Heo es FPS. 


;REPORT FPS INCORRECT. 


:SET_UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 


:FSRC OPERAND. 
EXPECTED RESULT. 


sANTICIPATED ERRONEOUS RESULT. 


zFPS BEFORE EXECUTION. 

:FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


;SET_UP THE LOOP ON ERROR ADDRESS. 
7GO EXECUTE THE INSTRUCTION. 
;FSRC OPERAND. 

EXPECTED RESULT. 


ZANTICIPATED ERRONEOUS RESULT. 
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Bee ee 


022756 


02756 


023024 


023024 


023324 
000000 
000000 
000000 


023324 
000000 


000000 


023324 
000001 
000000 
000000 
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000000 
000000 


000000 
000000 


20-JUN=79 
LDCID AND LDCLD TEST 


; OPERAND=-40000 FL=0 FD=1 
LLCS: 


6$: 
; OPERAND=0,1 
LLC?7: 


PC, @a4LDCDSUB 
40000, 

14,3600, 0,0,0 

43600.0.0,0 


wes 
47600.0,0.0 
43600,0.0,0 


PC ,@ALDCDSUB 
46200.0.0.0 
34200,0.0,0 


8B 9 
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:FPS BEFORE Syke of 

FPS AFTER EXECUTION. 

ANTICIPATED a FPS. 
T 107 BAD CONST 


REPORT FPS INCORRECT. 


SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE iy hn ae: 


2 FSRC RAND. 
EXPECTED RESULT. 


sANTICIPATED ERRONEOUS RESULT. 


FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
: (SET SIGN) ST 176 


;REPORT FPS INCORRECT. 


FD=1 


:SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 
:FSRC OPERAND. 

EXPECTED RESULT. 


sANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 

ANTICIPATED ERRONEOUS FPS. 
T 107 BAD CONS 


REPORT FPS INCORRECT. 


;SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE INSTRUCTION. 

:FSRC OPERAND. 

EXPECTED RESULT. 


sANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE EXECUTION, 

FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
REPORT FPS INCORRECT. 


SEQ 0105 
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023136 ERROR 1 REPORT FPS INCORRECT. 
023140 . 6$: 


s OPERAND=77777 177777 FL=1 FD=1 
LLC8: 

;SET UP THE LOOP ON ERROR ADDRESS. 
023324 S aA DCOSUB :GO EXECUTE THE INSTRUCTION. 
177777 1$: : Sa 77777 :FSRC OPERAND. 
177777 177000 : y 47777. 199999. 177000.0 SEXPECTED RESULT. 


177777 =177777 : . -1,°1,°1,°1 ANTICIPATED ERRONEOUS RESULT. 


023140 


:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
is REPORT RESULT INCORRECT. 
1 


REPORT FPS INCORRECT. 
; OPERAND==-PAT TERN FL=1 FD=1 


LLC9: 
;SET UP THE LOOP ON ERROR ADDRESS. 
000110 PC,LDCDSUB ;GO EXECUTE THE INSTRUCTION. 
177526 1$: ‘ -1,-252 ;FSRC OPERAND. 
000000 000000 2$: ‘ 142052, 0.0,0 ;EXPECTED RESULT. 


000000 000000 : . 136052.0,0.0 ANTICIPATED ERRONEOUS RESULT. 


4$: :FPS BEFORE EXECUTION. 
7FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
5$: - te REPORT RESULT INCORRECT. 
1 REPORT FPS INCORRECT. 
023254 6$: 


; OPERAND=PAT TERN FL=1 FD=1 FT=1 
LLC10: 


;SET UP THE LOOP ON ERROR ADDRESS. 
000042 LDC SUB [GO EXECUTE THE INSTRUCTION. 
067012 1$: é 1S$u6 012 sFSRC OPERAND. 
025560 050000 2$: ’ 19307" $55 e60, 050000,0 SEXPECTED RESULT. 


177777 =177777 : ‘ -1,°1,°1,°1 ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
:ANTICIPATED ERRONEOUS FPS. 
1 REPORT RESULT INCORRECT. 


6$ 
1 1 REPORT FPS INCORRECT. 
023322 : BR LLCDONE 


i THIS SUBROUTINE, LDCDSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 


023254 
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012601 
016100 
170 


000024 
023344 


022512 
000200 


022512 


000004 
000002 
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001236 


001252 


LDCID AND LDCLD T SEQ 0107 | 


:THE LDCID OR LDCLD INSTRUCTION AND CHECK THE RESULTS. A CALL 
:T0 IT IS MADE THUS: 


; JSR PC ,a#LDCDSUB 

: ACARG: .WORD X,X :AC_OPERAND 

; RES: «WORD X,X,X,X EXPECTED RESULT 

; ERRES: .WORD X,X,X,X ERROR RESULT 

3 PSB: .WORD xX :FPS BEFORE EXECUTION 
5 FPSA:  .WORD xX sFPS AFTER EXECUTION 
: ERFPS: .WORD xX ERROR FPS. 

: ERR1: ERROR 1;DATA ERROR. 

; BR ONT 

; ERR2: ERROR 1;FPS ERROR. 

; CONT: RETURN ADDRESS 


;THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE LDCID OR LDCLD INSTRUCTION IS EXECUTED. 

THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
SCOMPARED WITH FPSA IF THIS TOO IS CORRECT LDCDSUB RETURNS CONTROL 

:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD LDCDSUB 

;COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN ot ae WILL RETURN 


REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
sLDCID OR LDCLD IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

;THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN LDCDSUB 

WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 

RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND LDCDSUB WILL 

REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


er MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 


V 24(R1),RO 7SET THE FPS. 
LDFPS R 
MOV #1$,a#$TMP2 
MOV R1,R 
1$: LDCID = (RO),ACO TEST INSTRUCTION, LDCID OR LDCiD. 
STFPS R4 GET FPS. 
MOV ALDCT,RO GET THE RESULT. 
MOV #200,R2 
LDFPS 


R2 
STD ACO, (RO) 
3SEE IF THE RESULT IS CORRECT. 
MOV AMLDCTR2 


MOV R2, a#STMPS 
MOV R1, aASTMPS 
MOV R1,R3 

ADD #4 ,R3 

MOV R3,a4STMPS 
MOV 


R4,Q4STMP7 
MOV 26(R1) ,aA$STMP10 
MOV R1,RO 
ADD #4 ,RO 
#2,R3 
2$: CMP (RO) +, (R2)+ 
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0235 

023510 
023512 
023516 
023520 
023524 


023524 
023526 


023530 
023530 


023532 


023550 
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001006 
077303 


012702 
ao 


000026 
000040 


022512 


000014 
000002 


000032 


000030 
000036 


001334 
067012 034567 
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D AND LDCLD T 


10$ ;BR IF INCORRECT. 
R3,2$ 


26(R1) RS 31S THE FPS CORRECT? 
1 4 IF INCORRECT. 
3$: 40(R1) ;RETURN. 


3 THE RESULT INCORRECT SO SEE IF THE ERROR WAS ANTICIPATED. 
10$: MOV ALDCT,R2 


R1,R0 
#14,R0 


#2 ,R3 
11$: (RO) +, (R2)+ 
13$ 


R3,11$ 
32(R1) 
13$: 


;ERROR NOT oe SO REPORT RESULT INCORRECT HERE. 
14$: ERROR $s BAD RES 


; THE FPS WAS INCORRECT. SEE IF FAILURE WAS ANTICIPATED. 
15$: CMP 30(R1),R4 

BNE 

JMP 36(R1) 
ico: ERROR WAS NOT ANTICIPATED SO REPORT FAILURE HERE. 


17$: ERROR 1 BAD FPS 
BR 3$ 


LLCDONE : 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
3; THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


FERRER EKER EKER EEE KER EKER 


TRTEST 60 LDEXP TEST 


26 

>* THIS IS A TEST OF THE a’ INST 

;* A SUBROUTINE IS USED TO SET UP 

;* OPERANDS, EXECUTE THE LDEXP INST AND 
:* CHECK THE RESULTS. 


SRK 


** 
S160: SCOPE 


i 


tate RES. VALID EXPON=210 (EXCESS 200)=10 


:SET UP THE LOOP ON ERROR ADDRESS. 
R LDX *GO EXECUTE THE INSTRUCTION. 
1$: a 15845. 2B 12. 34567,012345 sACO OPERAND. 


SEQ 0108 
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023552 2$: . WORD XPONENT OPERAND. 
067012 034567 3$: . WORD 13145, 67012, 34560" 012345 sEXPECTED RESULT. 


067012 034567 4$: -WORD 2145,67012,34567,012345 ANTICIPATED ERRONEOUS RESULT. 
5$: 47217 :FPS BEFORE ae 
47200 :FPS AFTER EXECUTION. 
147200 ANTICIPATED ERRONEOUS FPS. 
-1 sEXPECTED F 
6$: tage 1 zE1e¥6 120200 BAD 
7$: ERROR ;REPORT FPS INCORRECT, 


:ST 625 INTO 304 
;NON=ZERO RES NEG. 
MMC2: 


eS 
— 
oO 


REE 
WA 


SET UP_THE LOOP ON ERROR ADDRESS. 
025076 7 


S PC, @#LDXSUB : EXPON= 
070123 045670 1$: : 123456, 70123,45670, 123456 :ACO OPERAND. 


2$: ° 177 EXPONENT OPERAND. 
070123 045670 3$: . 177656,70123, 45670, 123456 EXPECTED RESULT. 


070123 045670 4$: 137656,70123,45670, 123456 sANTICIPATED ERRONEOUS RESULT. 


5$: FPS BEFORE ty Ap ph te 
FPS AFTER EXECUTION 
ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
6$: 1. REPORT RESULT INCORRECT. 
a 1 REPORT FPS INCORRECT. 


NON-ZERO RES,  EXP=256=(56)REAL 
SET UP THE LOOP ON ERROR ADDRESS. 
025076 PC, a#LDXSUB "GO EXECUTE THE INSTRUCTION. 
057645 043323 1$: 73261, 057645,43323, 101760 ACO OPERAND. 


2$: ’ 56 EXPONENT OPERAND. 
057645 043323 : 53461,057645, 43333, 101760 sEXPECTED RESULT. 


177777 )=177777 t =1,-1,°1,°1 sANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
pet CEPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
REPORT RESULT INCORRECT. 


000401 BR 7$ 
104001 REPORT FPS INCORRECT. 
023746 


(EXCESS 200)=-151 (OCT) 
023746 
023746 104414 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
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023750 


024024 


024024 


024100 
024102 


024102 


024156 


025076 
024252 


024252 
177777 


025076 
032334 


032334 
000000 


025076 
024344 


024344 
000000 


MACY11 30A(1052) 
T60 LD 


0€ 2720 


062720 
177777 


035363 


035363 
000000 


045464 


045464 
000000 


1$: 


2$: 
3$: 
S$: 
5$: 


6$: 


7$: 
1" aan 200)=-200 (OCT), POSITIVE FRAC 


BR 
ERROR 


(EXCESS 


20=JUN=79 
EXP TEST 


G 9 
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;GO EXECUTE * INSTRUCTION. 
ERAND. 


15595 B83, 62720,21222 :ACO OP 


5625, 24252,62720, 21222 


EXPONENT OPERAND. 
sEXPECTED RESULT. 


a1 ,-1,-1,-1 sANTICIPATED ERRONEOUS RE 


sFPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 

;ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 

REPORT RESULT INCORRECT. 


SULT. 


SEQ 0110 


; (BUT EZBT) ST 544 TO 504 INTO 704 O (BUT EXBT) ST 704 I 


+i UP THE LOOP ON ERROR ADDRESS. 


EXECUTE THE INSTRUCTION. 


50181. te s8c, 35365° O3081 :ACO OPERAND. 


-200 
00131, 32334, 35365. 73031 


0.0.0.0 


1 
7$ 
1 


XPONENT OPERAND. 
EXPECTED RESULT. 


sANTICIPATED ERRONEOUS RESULT. 
:FPS BEFORE te sp Bb ay 


FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 


sEXPECTED FEC. 


; (BUT EXBT) ST 704 TO 64 INST 264 


: (BUT FIU) ST 264 xX 


200)=-200 (OCT), NEG FRACT,FIU=1 


SET _UP THE LOOP ON ERROR ADDRESS 
>GO_EXECUTE THE INSTRUCTION. 


Nabaia, fees, 45464,74045 ACO OPERAND. 


-200 
100014 24344, 45464, 74045 3:0 


0.0.0.0 


;EXPONENT OPERAND. 


sANTICIPATED ERRONEOUS RESULT. 


:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 


EXPECTED FEC. 


REPORT RESULT INCORRECT. 
REPORT FPS INCORRECT. 


sEXPECTED RESULT. 
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024314 
024314 


5204 
145200 


025076 
035455 005675 


000000 000000 
035455 005675 


025076 
062636 046566 


062636 046566 
000000 000000 


025076 
037475 076777 


000000 000000 
037475 076777 
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7$: 
sEXP=0 (EXCESS 200)==-200 (OCT),POS FRAC, FJU=0 
+P _ THE LOOP ON ERROR ADDRESS. 
XSUB ECUTE THE INSTRUCTION. 
518360 Beeee, 5675. O15) 3ACO OPERAND. 


-200 EXPONENT OPERAND. 
0,0,0,0 EXPECTED RESULT. 


00125, 35455,5675,05152 zANTICIPATED ERRONEOUS RESULT. 


7FPS BEFORE doy iy gf sy 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
1 sEXPECTED FEC. 
6$: = u 3 (BUT FIU) ST 264 x REPORT RESULT INCORRECT 


7$ REPORT FPS INCORRECT. 


zEXP=-1405 (EXCESS 200)=-1605 (OCT), FIU=1 
; :SET, UP THE LOOP ON ERROR ADDRESS. 
EXECUTE THE INSTRUCTION. 
1$: 616060 52836, 46568, 087606 ZACO OPERAND. 


EXPONENT OPERAND. 


2$: ; -1605 
3$: . 76626,62636, 46566, 67606 sEXPECTED RESULT. 


4$: 0,0,0,0 sANTICIPATED ERRONEOUS RESULT. 


5$: 2200 :FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
6$: 1 ; (BUT EZBT) ST 544 TO 704 INTO 504 


BR $ 
- ERROR 1 :REPORT FPS INCORRECT. 
iXP=-17416 (EXCESS 200)=-17616 (OCT). FIU=0 
: :SET UP THE LOOP ON ERROR ADDRESS. 
EXECUTE THE INSTRUCTION. 
1$: : OF oat Babe, 76779° 97555 ;ACO OPERAND. 


2$: 17616 ;EXPONENT OPERAND. 
3$: . 0,0,0,0 EXPECTED RESULT. 


4%: . 74527 .37475,76777,17273 sANTICIPATED ERRONEOUS RESULT. 
5$: 3FPS BEFORE eeu om 


45204 FPS AFTER EXECUTION. 
145200 ANTICIPATED ERRONEOUS FPS, 
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6043 024362 177777 -1 SEXPECTED FEC. 
4% 024364 104001 6$: ERROR 1 ; (BUT FIU) ST 504 
6045 024366 000401 BR 7$ 
6046 024370 104001 ERROR 1 sREPORT FPS INCORRECT. 
6047 024372 7$: 
6049 sEXP=-1601 (EXCESS 200)=-2001 (OCT), FIU=1 
6050 024372 mMC10: 
6051 024372 104414 LPERR 4-4 UP THE LOOP ON ERROR ADDRESS. 
6052 024374 004737 025076 JSR EXECUTE THE INSTRUCTION. 
6053 024400 001020 030405 006070 1S: WORD 01000. 50408, 06076° 00102 ;ACO OPERAND. 
6054 024406 000102 
6055 024410 175777 2$: .WORD -2001 EXPONENT OPERAND. 
6056 024412 037620 030405 006070 3$: "WORD 37620, 30405 ,06070. 00102 :EXPECTED RESULT. 
6057 024420 000102 
6058 024422 000000 000000 000000 4$: .WORD 0,0,0,0 ;ANTICIPATED ERRONEOUS RESULT. 
6059 024430 000000 
024432 042200 5$: 42200 :FPS BEFORE EXECUTION. 
6061 024434 142200 142200 [FPS AFTER EXECUTION. 
6062 024436 042204 42204 * ANTICIPATED ERRONEOUS FPS. 
6063 024440 000012 12 sEXPECTED FEC. 
6064 024442 104001 6$: ERROR 1 7 (BUT FIU) ST 504 
6065 024444 01 BR 7$ 
6066 024446 104001 ERROR 1 , ZREPORT FPS INCORRECT. 
6067 024450 7$: 
6069 sEXP=1206 (EXCESS 200)=1006 (OCT) FIV =1 
6070 024450 MMC 11: 
6071 024450 104414 LPERR 3-4 UP THE LOOP ON ERROR ADDRESS. 
6072 024452 004737 025076 JSR PC O EXECUTE THE INSTRUCTION. 
6073 024456 012131 014151 016171 1S: WORD 13431. ma TStie 16171. Monn ;ACO OPERAND. 
6074 024464 010111 
6075 024466 001006 2$: . WORD 1006 sEXPONENT OPERAND 
6076 024470 041531 014151 016171 3$: .WORD 41531,14151, 16171, 10111 s EXPECTED RESULT. 
6077 024476 010111 
6078 024500 000000 000000 000000 4$: .WORD 0,0,0,0 ZANTICIPATED ERRONEOUS RESULT. 
6079 024506 000000 
6080 024510 041200 5$: 41200 ;FPS BEFORE EXECUTION. 
6081 024512 141202 141202 [FPS AFTER EXECUTION. 
6082 024514 041204 41204 ae anatase ERRONEOUS FPS. 
6083 024516 000010 10 ZEXPECTED FEC. 
6084 024520 104001 6$: ERROR 1 :(BUT FIV) ST 104 
6085 024522 000401 BR 7$ 
6086 024524 104001 ERROR 1 | REPORT FPS INCORRECT. 
6087 024526 7$: 
6089 3EXP=16315 (EXCESS 200)=16115 (OCT) FIV=0 
6090 024526 MMC 12: 
6091 024526 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
6092 024530 004737 025076 JSR O EXECUTE THE INSTRUCTION. 
6093 024534 027262 025242 023222 1$: ~ WORD BoSa2. Bg323, 23225° 21202 ;ACO OPERAND. 
6094 024542 021202 
6095 024544 016115 2$: .WORD 16115 : EXPONENT OPERAND. 
6096 024546 000000 000000 000000 3$: .WORD 0,0,0.0 SEXPECTED RESULT. 


000000 
6098 024556 063262 025242 023222 4$: “WORD  63262,25242,23222,21202 sANTICIPATED ERRONEOUS RESULT. 


4% 
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021202 
046200 


5$: 46200 7FPS BEFORE toy Sp yh ag 
46206 FPS AFTER EXECUTION. 
syaewe ZANT ICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
6$: ERROR 1 ; (BUT FIV) ST 104 
BR 7$ 


s ERROR 1 sREPORT FPS INCORRECT. 


sEXP=11011 (EXCESS 200)=10611 (OCT) FIVv=1 


MMC13: 
:SET oP THE LOOP ON ERROR ADDRESS. 
025076 EXECUTE THE INSTRUCTION. 
032333 034353 : 50818. Bass, ounek™ S878 sACO OPERAND. 


23: : 10611 ;EXPONENT OPERAND. 
032333 034353 : 2313,32333, 34353, 36373 EXPECTED RESULT. 


000000 000000 : ° 0,0,0,0 ANTICIPATED ERRONEOUS RESULT. 


7FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
‘ty cine ERRONEQUS FPS. 
sEXPECTED F 
BUT” FIV) ST 144 


REPORT FPS INCORRECT. 


SSS 
— at 2 
CONAUSWN—O 


sEXP=17123 (EXCESS 200)=16723 (OCT) FIV=0 


MMC 14: 
;SET UP THE LOOP ON ERROR ADDRESS. 
025076 S @ALDX 3GO EXECUTE THE INSTRUCTION. 
042434 044454 1$: WOR LOL TA- 42 where 44454 46474 zACO OPERAND. 


2$: . 16723 EXPONENT OPERAND. 
000000 000000 3$: . 0,0,0,0 zsEXPECTED RESULT. 


042434 044454 4$: 24614 ,42434 44454 46474 sANTICIPATED ERRONEOUS RESULT. 


5$: sFPS BEF ORE oy eH Sp 
46206 ;FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
1 sEXPECTED FEC. 
6$: :(BUT FIV) ST 144 


0247 REPORT FPS INCORRECT. 
024740 7$: 
254 (OCT)= 454 (EXCESS 200) FIV=1 


024740 ; 
024740 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
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024742 004737 025076 LDXSUB ;GO EXECUTE THE — 
052535 054555 1$: WORD 50515. 52535,54555,56575 ;ACO OPER 


2$: . 254 EXPONENT OPERAND. 
052535 054555 3$: WOR 13115,52535, 54555, 56575 EXPECTED RESULT. 


000000 000000 4$: . 0,0,0,0 sANTICIPATED ERRONEOUS RESULT. 


5$: 200 zFPS BEFORE cettian 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
10 S EXPECTED FEC. 
6$: on : (BUT FIV) ST344 


REPORT FPS INCORRECT. 
025016 7$: 


SI3S(EXCESS 200) FIV=0 
025016 
+- if UP THE LOOP ON ERROR ADDRESS. 
025076 EXECUTE THE + gach 
062636 064656 : 80616, 65636, 64658. 86676 2ACO OPERAN 


2$: 313 EXPONENT OPERAND. 
000000 000000 : 0,0,0.0 EXPECTED RESULT. 


062636 064656 : ° 22616,62636,64656,66676 sANTICIPATED ERRONEOUS RESULT. 


5$: sFPS BEF ORE ty iy ph hogy 
6206 ;FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
1 sEXPECTED FEC. 
6$: 1 : (BUT FIV) ST 344 
BR 7$ 
1 REPORT FPS INCORRECT. 


7$: 
025074 MMCDONE 


: THIS SUBROUTINE, LDXSUB, IS USED TO SET UP ~ OPERANDS, EXECUTE 
THE LDEXP INSTRUCTION AND CHECK THE RESULTS. A CALL 
;TO IT IS MADE THUS: 


PC ,@#LDXSUB 
WORD 3;AC OPERAND 
7 EXPONENT 
sEXPECTED RESULT 
;ERROR RESULT 
sFPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
sERROR FPS. 
sEXPECTED FEC 
;DATA ERROR. 
CONT 
sFPS ERROR. 


RETURN ADDRESS 
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3 


;THE OPERANDS ARE SET UP (USING Bn AS THE ACCUMULATOR). THEN 
;THE LDEXP INSTRUCTION IS EXECUT 
:THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COMPARED WITH FPSA IF THIS TOO IS a a LDXSUB git CONTROL 
:TO THE ia ROUTINE AT CONT. IF THE FPS IS BAD LDXSUB 
ARE 1T TO ERROR FPS. IF THIS MATCHES. THEN LOXSUB WILL RETURN 
:TO THE ERROR CALL AT ERR2, OTHERWISE LDXSUB ITSE 
REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE + OF THE 
sLDEXP IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
: ANTICIPATED FAILING DATA PATTERN, 


SUB 
SWILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 
RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND LDXSUB WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


012601 LDXSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
127 000200 MOV a LOAD THE ACO OPERAND. 


BELLLLL 
ONOUSWI 


R1 2RO 
(RO) ,ACO 
025134 001236 #1$ ,AASTMP2 
000032 a ae SET UP THE FPS. 


R 
R1,RO 
000010 #10,R0 


(RO) ,ACO : TEST INSTRUCTION. 
R4 :GET THE FPS. 
R5 GET THE FEC. 
ae 3GET THE RESULT. 


A#LDXT ,RO 
ACO, (RO) 


R4, a4$TMP7 
34(R1) ,a#$TMP10 
MO R5,a4$TMP11 
001256 oT ay On te 
R2,a4$TMP3 
#10,R2 
? a4$TMPS 


001246 
SEE IF THE RESULT WAS CORRECT. 


#4 RO 
(R2)+, (R3)+ 
10$ 


;BRANCH IF NOT CORRECT. 


RO, 2$ 

R4,34(R1) :SEE IF THE FPS WAS CORRECT. 
0252 BNE ;BRANCH IF NOT CORRECT. 
025270 34(R1) 
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025274 100003 3$ 

0 020561 000040 R5,40(R1) 7SEE IF THE FEC WAS CORRECT. 
001027 20$ BRANCH IF NOT CORRECT. 
000161 000050 3$: 50(R1) ;RETURN. 


; THE RESULT INCORRECT SO SEE IF THE FAILURE WAS ANTICIPATED. 
012702 025366 108: MOV ~ 


R1.R 
000022 #22,R3 
000004 #4,RO 
(R2)+, (R3)+ 
12$ 


RO,11$ 
000042 42(R1) 


ieee ERROR WAS NOT ANTICIPATED SO REPORT IT HERE. 
13$: ERROR 1 BAD RES 
BR 3$ 
;SEE IF THE FPS ERROR WAS ANTICIPATED. 
000036 15$: CMP 36(R1) ,R4 
BNE 16$ 
000046 JMP 46(R1) 
025356 16$: 
3; THE FPS WAS NOT ANTICIPATED SO REPORT IT i 
025356 178: ERROR 1 :BAD FPS 
025360 BR 3$ :BUT EZBTY8 


025362 208: 
;REPORT FEC INCORRECT. 

025362 21$: ERROR 1 

025364 3$ 

:DATA BUFFER: 

025366 000000 900000 iDxT: .WORD 0,0,0.0 

025374 

025376 MMCDONE : 


025376 RSETUP i= a Bh oe THE FPS a An AND 


) E SOF TWAR 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FLERE EREEEKEEK EKER EKEEREEKEKKKEE 


e*TEST 61 DESTINATION MODES, MODE 1 (FL=0), TEST 


:* THIS IS A TEST OF DESTINATION MODE 1 USING 
;* * THE STFPS INSTRUCTION 


sadam alec atic inlet 
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MACY11 30A(1052) 
T61 DESTINATION MODES, MODE 1 (FL=0), TEST 


SEQ 0117 
TST61: 


NNC1: 
THE LOOP ON ERROR ADDRESS. 
025502 THE DATA BUFFER. 
000006 #6,R 
177777 1$: at 


R1,1$ 

102345 #102345. RO 

025450 001236 #NNC2, a4$TMP2 

025574 000004 WNNC SS a QAWERRVECT ; SET wv, FOR TRAPS TO 4. 


RO : 
025444 025506 #NNCTB1 ,RO 


025450 : (RO) 
025506 MP RO, ANNCTB1 


NNC10 [BRANCH 
025506 102345 @YNNCTB1 #102345" : 


025510 177777 QWNNCTB1+2,4-1 1S THE RESULT CORRECT? 
aa 3 ae ;BRANCH IF NOT CORRECT. 


3; TEST DATA BUFFER: 
025502 177777 177777 NNCTBO: .WORD -1,~1 
025506 177777 177777 177777 NNCTB1: .WORD <-1,-1,-1,-1 
025514 177777 


TEST INSTRUCTION. 
TIS RO ergy 
F NOT CORR 


;REPORT RO INCORRECT. 
001242 NNC10: MV RO, a#STMP4 
025506 001240 #NNCTB1 , aA#STMP3 


025516 





025522 
025530 
025532 


025552 


025554 


025572 


025574 


012737 
013737 
104001 
000422 


012737 
013737 
104001 
000412 


011604 
020427 
001402 
000137 


102345 
025506 


177777 
025510 


025452 
036172 


001240 
001242 


001240 
001242 


IF A TRAP TO 
: DURING EXECU 


ERROR 
BR NNCDONE 


RESULT INCORRECT. 
MOV #102345 ,a#STMP3 
MOV oe TBi ,aaSTMP4 


ERROR 
BR NNCDONE 


RESULT INCORRECT. 
MOV = 


- OAS TMP 
MOV @ANNCTB1+2,a4$TMP4 
ERROR 1 
BR NNCDONE 


@ACPSPUR 


;RO BAD (BUT 

° FDST)X 
é ST 634 
;BAD DATA 


3 (BUT GR7,FL) 
2ST T 357 to 416 


VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
TION A a THE FPP INSTRUCTION BEING TESTED, 
THE ae oe TO 4 HANDLER 


IF NOT GO 
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025610 011637 001236 1$: MOV (SP) ,a#$TMP2 
025614 022626 (SP)+,(SP)+ 
025616 104001 : 1 7 (BUT FDST)+ ST634 


025620 : 

025620 104413 RS :GO INITIALIZE THE FPS AND STACK; AND 
sSEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


. SETAE AAA EEARE EE EERAERAERRR EAE EREEEEREREEEEERHREEREE EH 


:*TEST 62 DESTINATION MODES, MODE 2 (FL=0), TEST 


:* THIS IS A TEST OF DESTINATION MODE 2 USING 
:* THE STFPS INSTRUCTION 


-* 


Z SRAERRAAARARAEAAREAAAARAAAAEARAKEEAREHERRETREREREEREAEREERRRE EKER 


025622 000004 18162: SCOPE 


025624 OOC1: 
104414 :SET UP THE LOOP ON ERROR ADDRESS. 
025724 MO #00CTBO,RO SET UP THE DATA BUFFER. 
000006 6,R1 


#6,R 
177777 1$: #-1,(RO)+ 


R1,1$ 
105412 #105412,R0 
025672 001236 #0002, a4$TMP2 
026016 000004 MO #00625, @#ERRVECT :SET UP P FOR TRAPS TO VECTOR 4. 


SET UP F 
025730 MOV #00CTB1,RO 


: (RO) + : TEST INSTRUCTION. 
025732 MP RO,#00CTB1+2 :1S RO CORRECT? 
00C 10 BRANCH IF NOT CORRECT. 
025730 105412 @400CTB1 4105412 tm ny RESULT CORRECT? 
00€15 ;BRANCH IF NOT CORRECT. 
025732 177777 5 pat eet sis THE RESULT CORRECT? 
Ooc 


BRANCH IF NOT CORRECT. 
025722 000447 BR OOCDONE 


; TEST DATA BUFFER: 
025724 177777 177777 OOCTBO: .WORD -1,-1 
025730 177777 177777 177777 OOCTB1: .WwORD <-1,-1,-1,-1 
025736 177777 


REKKETEE 
DWNAWUSWY— 


;REPORT - INCORRECT. 
025740 001242 00010: RO, a#$TMP 
025732 001240 MOV POOCTBI +2, av IMPs 
1$: FRROR 1 :kO BAD (BUT 
025754 BR OOC DONE : FDST)X 


REPORT RESULT INCORRECT. 
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025756 012737 105412 0012460 00C15: MOV #105412 ,a4$TMP3 3 ST 634 
025730 001242 MOV @#700C TRI, a#$ IMPS 
1$: ERROR 1 ;BAD DATA 
025774 BR OOC DONE 


REPORT RESULT INCORRECT. 
025776 177777 001240 O0C20: MOV #-1 ,@ASTMPS 
026004 025732 001242 MOV @A00(TR1+2,aa$TMP4 
026012 1$: ERROR 1 ; (BUT _GR7,FL) 
026014 BR OOCDONE [ST 357 TO 416 
SINTO 417 


;1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
[DURING EXECUTION OF THE FPP ap agi ons BEING TESTED, IF NOT GO 
;TO THE SPURIOUS TRAP TO 4 HANDLER 

026016 00C25: MOV (SP) ,R4 

026020 025674 C R4 ,#OOC2+2 

026024 1$ 

026026 37 036172 a4 CPSPUR 


026032 001236 : (SP) ,@#$TMP2 
026036 (SP)+,(SP)+ 
026040 : ; (BUT FDST)+ ST634 


026042 $ 

026042 : 3GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


POPPER RRP RR REREE REESE EERE RR RE RRR RRR RRR RRR RRR RRR RRA RRR RRR RRR RR RAD SD 


:*TEST 63 DESTINATION MODES, MODE 4 (FL=0), TEST 


te THIS IS A TEST OF DESTINATION MODE 4 USING 

ie THE STFPS INSTRUCTION 

oe 

+; RRA R AEE RE TERRE ERE EREEREREREERRERR EERE EERE REE EERE EERE 


TS163: SCOPE 
PPC1: 


: 


R 


:SET UP THE LOOP ON ERROR ADDRESS. 
026146 MOV te ee RO :SET UP THE DATA BUFFER. 
v7) 


000006 
177777 1$: a taal 


NS 


105555 #105855, RO 

026114 001236 #PPC2, aWSIMP2 

026240 000004 MOV #wPP(25 aMERRVECT ;SET UP FOR TRAPS TO VECTOR 4. 
00 RO :SET UP FPS. 

026110 026154 MO #PPCTB1+2,R0 


026114 t -(RO) TEST INSTRUCTION, 


-—-SoQo0oo°000o— 
yo? eye ae 
ny A gt 


oO 
par 
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026116 “rs 14 026152 
026152 


026144 


026146 177777 
026152 177777 
026160 177777 


026162 

026166 

026174 

026176 
012737 
013737 
104001 

026216 000422 


026220 012737 177777 
013737 026154 
104001 
000412 


026116 
026250 000137 036172 
026254 011637 001236 
026260 022626 
026262 104001 


026264 
026264 104413 
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105555 
177777 


177777 


001240 


001240 
001242 


001240 
001242 


DESTINATION MODES, MODE 4 (FL=0), TEST 
we. 
at Naa #105555" 
@4PPCTB1+2 4-1 
PPC20 
PPCDONE 


iTS RO CORRECT? 
ANCH IF NOT CORRECT 
bine hg RESULT CORRECT? 
;BRANCH IF NOT CORRECT. 
71S THE RESULT CORRECT? 
[BRANCH IF NOT CORRECT. 


ioe te DATA BUFFER: 
PPCTBO: .WORD 
PPCTB1: .WORD 


-1,-1 


-1,°1,°1,-1 


i a INCORRECT. 
PPC10: RO, a#$TMP4 
MOV #PPCTB1 , a#$TMP3 
1$: ERROR 1 ;RO BAD (BUT 
BR PPCDONE ; FDST)X 


RESULT INCORRECT. 

MOV #105555 ,aa#$TiP3 é ST 634 
@APPC TR] ,awSTMP4 

ERROR i BAD DATA 

BR PPCDONE 


RESULT INCORRECT. 
MOV #-1 ,@ASTMPS 
@4PPCTB1+2,aaSTMP4 
1$: ERROR 1 


BR PPCDONE 


; (BUT GR7,FL) 
3ST 357 TO 416 
INTO 417 


:1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 

[DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
A THE SPURIOUS TRAP TO 4 HANDLER. 
PPC25: MOV SP) ,R4 

vet LAPP(2+2 

@4CPSPUR 


1$: (SP) ,@ASTMP2 
MP (SP)+, (SP)+ 
2$: 3 (BUT FDST)+ ST634 


PPCDONE : 
:GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


FREER ERE REE RRR EERE KERR ERE REE EERE 


S*TEST 64 DESTINATION MODES, MODE 3 (FL=0), TEST 


SEQ 0120 





E 10 
CJKDDA KEF11=A DIAG PART 2 MACY11 30A(1052) 20=JUN=79 11:39 PAGE _121 
CJKDDA.P11 20=JUN=79 11:22 164 DESTINATION MODES, MODE 3 (FL=0), TEST SEQ 0121 


Se THIS IS A TEST OF DESTINATION MODE 3 USING 
>* THE STFPS INSTRUCTION 
*® 

r FEAR RARER ERERREEREEEREERERERKREEEEEE EERE REE 


026266 18164: 


026270 QQC1: 
SET UP THE LOOP ON i ADDRESS. 
026374 MO waa SET UP THE DATA BUFFER 


000010 . 
177777 1$: #~-1,(RO)+ 


Ri, 
#106653,RO 
26342 001236 #QQC2, AAS TMP2 
026472 000004 MOV #aaces, @FERRVECT iF ie sen TRAPS TO VECTOR 4. 


0 : 
026410 MOY #QQCTB2,RO 
012710 026400 ‘ #QQCTB1, (RO) 


170230 : a(RO)+ TEST INSTRUCTION. 
026412 CMP RO, #QQCTB2+2 21S RO CORRECT? 
QQCc1 BRANCH IF NOT CORRECT. 
026400 106653 aoegs et. #106653. si$ als tat tateect 
026410 026400 avOQCTB2,#QQCTB1 ;1S THE RESULT CORRECT? 
Qac20 ; BRAN 


CH IF NOT CORREC7. 
026372 000451 BR QQCDONE 
; TEST DATA BUFFER: 


026374 177777 177777 _ Q0CTBO: .WORD -1,-1 
026400 177772 177777 177777 QQCTBI: ‘WORD -1,-1,-1,-1 
177777 177777 QQCTB2: .WORD -1,-1 


a” RO INCORRECT. 
010037 001242 QC10: MOV RO, a4ST. 
012737 026412 001240 MOV poacTBe+2, aA#$TMP3 
104001 1$: ERROR 1 3RO BAD (BUT 
BR QQCDONE ; FDST)X 


sREPORT RESULT INCORRECT. 
012737 001240 QQC15: MOV #106653, a4$TMP3 : ST 634 
013737 001242 MOV a400CTB1 ,a#$TMP4 
104061 1$: ERROR 1 BAD DATA 
000422 BR QQCDONE 


sREPORT RESULT INCORRECT. 
012737 026410 001240 Q0QC20: MOV #QQCTB2,av$TMP3 3 (BUT FDST) 
026402 001242 MOV POOR S182 BOS THM 


1$: ERROR 
BR QQCDONE 


:IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
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02651 
02651 


026520 


026522 


0265 

626570 
026576 
026600 


026630 
026634 
026642 


000137 


011637 
022626 
104001 


104413 


012760 
170250 


177777 


026344 
036172 
001236 


026630 
000006 
177777 


026726 
ets 
026644 
026634 
026644 


177777 
177777 
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001236 
000004 


177776 


004301 
026634 


177777 


122 
DESTINATION MODES, MODE 3 (FL=0), TEST 


EXECUTION OF THE FPP a BEING TESTED, IF NOT GO 
SPURIOUS TRAP TO 4 HANDLER 
MOV (SP) ,R4 

Rg .#O0C2+2 


@4CPSPUR 


(SP) ,a#$TMP2 
CMP (SP)+,(SP)+ 
2$: 1 ; (BUT FDST)+ ST634 


QQCDONE : 
R 4 ae THE FPS AND = AND 


sO 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


4 SERA REE ERR EEE RRR REE EERE KEKE EK 


;*TEST 65 DESTINATION MODES, MODE 5 (FL=0), TEST 


;* THIS IS A TEST OF DESTINATION MODE 5 USING 
;* THE STFPS INSTRUCTION 


° 
° 
Py 
CER REE ERE REE EERE KEE EEKEEEEEERERKKEEEEEEH 
T 


ST65: SCOPE 


RRC1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
eae ;SET UP THE DATA BUFFER. 


46, 
1$: #-1,(RO)+ 


R1,1$ 

#004301,R0 

#RRC2, aASTMP2 

#RRCO5 ,a#ERRVECT ;SET UP FOR TRAPS TO VECTOR 4. 
RO ET UP FPS. 


#RRCTB2+2,RO 
#RRCTB1,-2(RO) 


a- (RO) : TEST INSTRUCTION. 
RO,ARRCTB2 21S RO CORRECT? 
RRC10 BRANCH IF NOT CORRECT. 
@ARRCTB1,#0046301 ;1S THE RESULT CORRECT? 
RRC15 ; CH IF NOT CORRECT. 
@ARRCTB2,#RRCTB1 ;1S THE RESULT CORRECT? 
RRC20 ¢BRANCH IF NOT CORRECT. 
RRCDONE 

3; TEST DATA BUFFER: 


RRCTBO: .WORD -1,-1 
RRCTB1: .WORD =-1,-1,-1,-1 


SEQ 0122 
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026724 


026726 


026742 
026746 
026750 


026752 
026752 


026754 


026756 


177777 


011637 
022626 
104001 


104413 


177777 


001242 
026644 


004 301 
026634 


026644 
0266 36 


026600 
036772 
001236 


027070 
000006 
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001240 


001240 
001242 


001240 
001242 


23 
DESTINATION MODES, MODE 5 (FL=0), TEST 
RRCTB2: .WORD <=1,-1 


wa. ~ a INCORRECT. 
RRC10: RO, a#$TMP4 
#RRCTB2, a#$TMP3 
ERROR 1 3RO BAD (BUT 
BR RRCDONE ; FDST)X 


— INCORRECT. 

#004301, a#$TMP3 : ST 634 
MOV @ARRCTB) ,aaSIMP4 
ERROR 1 BAD DATA 
BR RRCDONE 


RESULT yee IF 
MOV #RRCTB2, a&STMP3 BUT FDST) 
@ARRCTR1+2,a4$TMP4 
1$: ERROR 1 (BUT GR7,FL) 
BR RRCDONE 4 eA fo 416 


:1F A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
SDURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
Ak THE SPURIOUS TRAP TO 4 HANDLER. 
RRC25: MOV (SP) ,R4 
“rt ,ARRC2+2 


a4 CPSPUR 


1$: (SP) ,a#$TMP2 
CMP (SP)+,(SP)+ 
2$: 1 3 (BUT FDST)+ ST634 


RRCDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
* VIRTUAL CONSOLE SWITCH a (HAS 
3 THE USER TYPED CONTROL G?) 


FREER ERE EERE REE REE EEE EEE ERE EEERENK EEE RE 


TRTEST 66 DESTINATION MODES, MODE 6 (FL=0), TEST 


»¢ 


:* THIS IS A TEST OF DESTINATION MODE 6 USING 
;* THE STFPS INSTRUCTION 


SERRE REE REE EERE EERE REE ERA EERE 


*"* 
S166: SCOPE 


f 


SSC1: 
LPERR SET UP THE LOOP ON ERROR ADDRESS. 
asd eset rec .an SET UP THE DATA BUFFER, 
V a6, 


SEQ 012? 
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012720 177777 
102514 


027026 
027162 


005001 
027022 021673 
027026 005201 
000000 


021673 
027074 
027076 


027070 2 177777 
027074 177777 
027102 


001242 
021673 
027120 
027122 102534 
| 027074 
027140 


027142 177777 
027076 


027160 


027162 
027164 027030 
027170 
027172 000137 036172 


027176 011637 001236 
027202 022626 
027204 104001 
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001236 
000004 


102514 
177777 


177777 


001240 


001240 
001242 


001240 
001242 


STINATION MODES, MODE 6 (FL=0), TEST 
1$: #-1,(RO)+ 
R1,1$ 


#SSC2, AS TMP2 
#5SC25 ,a#ERRVECT SET UP FOR TRAPS TO VECTOR 4. 
RO :SET UP FPS. 


R1 
#SSCTB1=5201,RO 


5201 (RO) 3; TEST INSTRUCTION. 
R1,40 WAS PC Gernot connecrs V1" 


$SC30 : 
RO, O.#SSCTBI-5201 i1s : COR o 
S#SSC1B1, 02514": “oy THE RESULT CORRECT? 


ANCH IF NOT CORRECT. 
@ASSCTB1+2,4-1 31S THE RESULT CORRECT? 
$SC20 ; BRAN 
SSCDONE 


CH IF NOT CORRECT. 
: TEST DATA BUFFER: 
SSCTBO: .WORD <-1,-1 

SSCTB1: .~ WORD -1,-1,-1,-1 


REPORT RO INCORRECT. 
$SC10: MOV RO, af 

#Ssc TBI 5301, aA4$TMP3 
1$: ERROR 


, 
BR SSCDONE 


REPORT at "aioe i 
SSC15: #102534 ,a#STMP3 
a#SSCTBI ,aa$TMP4 
ERROR 1 :BAD DATA 
BR SSCDONE 


RESULT INCORRECT. 
MOV 4-1 ,aASTM 


TMP 
a#SSCTB1+2, @4$STMPS 
ERROR ji ; (BUT GR7,FL) 
BR SSCDONE ST 357 TO 416 
INTO 417 


:IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
: DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
>TO THE SPURIOUS TRAP TO 4 HANDLER. 
SSC25: MOV (SP) ,R4 
rt ASSC2+2 
a@4CPSPUR 
(SP) ,aA#$TMP2 


(SP)+,(SP)+ 
3 (BUT FDST)+ ST634 


SEQ 0124 
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027206 000401 


027210 
027210 104001 


027212 
027212 


027214 

027216 
027336 
000010 
177777 
103747 


027274 
027434 


022151 
012760 027342 
170270 005201 
060000 


022151 
027342 
027344 


177777 
177777 


027352 177777 177777 
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001236 
000004 


005201 


103747 
177777 


177777 


125 
DESTINATION MODES, MODE 6 (FL=0), TEST 
BR SSCDONE 


ico PC NOT INCREMENTED BY 2 DURING EXECUTION. 
1$: ERROR 1 PC NOT 
; INCREMENTED 
BY 2 


SSCDONE : 
RSET 


See it We we THE FPS AND STACK; AND 


: SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


SAREE EERE EERE EEE EEKEEE REE KEKE 


S*TEST 67 DESTINATION MODES, MODE 7 (FL=0), TEST 


;* 
>* THIS IS A TEST OF DESTINATION MODE 7 USING 
:* THE STFPS INSTRUCTION 


** 
° 


Ce TEER RARER EEE ERE EKER EKEEEREREEEEREREKEEEEEKE KEE 


TS167: 


TCTs 

;SET UP THE LOOP ON ERROR ADDRESS. 
Ads :SET UP THE DATA BUFFER. 
#4 


1$: #-1. (RO) + 


R1, 
#103747,R0 

#TTC2,a4$TMP2 

#TTC25,aMERRVECT =SET UP FOR TRAPS TO VECTOR 4. 
RO :SET UP FPS. 


R1 
A#TTCTB2-5201 ,RO 
#TTCTB1,5201(RO) 
tet TEST INSTRUCTION. 
a P 7 WAS a CORRECT AFTER EXECUTION? 
E30 BRANCH IF NOT CORRECT. 
nO. ATTCTB2-5201 31S RO CORRECT? 


CH IF NOT CORRECT 
arricrar, #103747" sts iy * RESULT CORRECT? 
@ATTCIB1+2,#-1 31S THE RESULT CORRECT? 
TTC20 BRANCH IF NOT CORRECT. 
TTCDONE 
TEST DATA BUFFER: 


TICTBO: .WORD -1,-1 
TTCTB1: .WORD = -1,-1,-1,-1 


TTCTB2: .WORD -=1,=1 


SEQ 0125 
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;REPORT A INCORRECT. 
010037 001242 TTC10: RO, a4$TMP 
012737 022151 001240 MOV ATTCTB2-5201, a4$TMP3 
104001 1$: ERROR 
027372 000434 BR TT CDONE 


: RESULT INCORRECT. 
027374 012737 103747 001240 : MOV #103747, aa$TMP3 
013737 027342 001242 MOV @ATTCTBI , aaSTMP4 
104001 : ERROR 1 :BAD DATA 
027412 000424 BR TTCDONE 


REPORT RESULT yo gro ll 
027414 012737 177777 001240 TTC20: MOV 1, @ASTMP3 
027344 001242 MOV aaTiCTBl +2, @F$TMP4 
1$: ERROR 1 ; (BUT GR7,FL) 
BR TTCDONE ont 357 To 416 


:IF A TRAP TO VECTOR 4 OCCURS COME HERE TO SEE IF THE TRAP OCCURRED 
[DURING EXECUTION OF THE FPP INSTRUCTION BEING TESTED, IF NOT GO 
3TO_THE SPURIOUS TRAP TO 4 HANDLER. 
TTC25: MOV (SP) ,R4 
027276 oe" ATTC2+2 


036172 @4CPSPUR 
001236 1$: (SP) ,@ASTMP2 
MP (SP)+,(SP)+ 
2$: 1 : (BUT FSDT)+ ST634 
BR TTCDONE 


REPORT PC NOT INCREMENTED BY 2 DURING EXECUTION. 
027462 TTC30: 
027462 i 1$: ERROR 1 


027464 TTCDONE : 


PC _NOT 
: INCREMENTED 


027464 104413 RSE TUP :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


FERRER ERK ERE REE ERE REE EERE EKER EERE K EKER 


TSTEST 70 DESTINATION MODES, MODE 2 (FL=1), TEST 
3* 
:* THIS IS A_TEST OF DESTINATION MODE 
;@ °# USING STCOL WITH REGISTER 0 
000004 
104414 RR :SET UP THE LOOP ON ERROR ADDRESS. 


012700 000300 . :SET UP FPS 
027476 170100 LDFPS RO 
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027546 


2 027520 
027514 027560 


027520 
027522 027564 
027526 
001242 
027564 
027544 
027546 000000 
000000 


177777 


027570 

027572 
000300 
027650 


0 027622 
027616 012 027666 


027622 


027624 027662 
027630 


027632 001242 
27636 027662 
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001236 


001240 


000000 


177777 


001236 


001240 


127 
TINATION MODES, MODE 2 (FL=1), TEST 


#UUCTP1,RO ;SET UP THE ACO OPERAND. 
(RO) ,ACO 
HUUC2, AAS TMP2 
#UUCBFO,RO 


STCDL ACO,(RO)+ TEST INSTRUCTION. 


CMP RO, MUUCBF 0+4 31S RO CORRECT? 
BEQ UUCDONE BRANCH IF CORRECT. 


;REPORT -f INCORRECT. 
UUC3: RO, a4$STMP4 

pt td OFS TMP3 
1$: ERROR 1 ;RO NOT INCR BY 4 
UUCDONE 


BR 
; TEST DATA BUFFER: 
UUCTP1: .WORD 0,0,0.,0 


-1 
ULCBFO: .WORD 


UUCDONE : 
RSE TUP :GO_ INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


DIRE REE KEKE ERE EERE EKER EREREEEEEKKEK EE 


ssTEST 71 DESTINATION MODES, MODE 4 (FL=1), TEST 


oe THIS IS A TEST OF DESTINATION MODE 
:* 4 USING STCDL WITH REGISTER 0 


-1,-1,-1 


SRA RR EKER REE KKK EKER KER EK EEKKKEEKEREK EEK KK 


1171: 


VVC1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
<a sSET UP FPS. 


R 
#VVCTP1,RO ;SET UP THE ACO OPERAND. 
(RO) ,A 

AVVC2, aASTMP2 

#VVCBF0+4 RO 


STCDL ACO9,-(RO) 


CMP wares 
BEQ CDONE 


RO aD ast a 
MOV WvveBrO. av$TMP3 
ERROR 1 


VVCDONE 


TEST INSTRUCTION. 
1S RO CORRECT? 


:RO NOT DECR BY 4 


SEQ 0127 
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027670 
027670 


027672 


027674 


027740 


027740 


027774 


000000 
00000: 
177777 


177777 


104413 
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000000 


177777 


031042 
000000 


000000 
177777 


031042 
000000 


000000 
177777 
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71 DESTINATION MODES, MODE 4 (FL=1), TEST 


TEST DATA BUFFER: 
000000 VVCTP1: .WORD 0,0,0,0 


“1 
177777 VVCBFO: .WORD =1,=1,=1 


VVCDONE : 
RSETUP i Me THE FPS AND STACK; AND 


SOF TWARE 
VIRTUAL CONSOLE SWITCH a (HAS 
THE USER TYPED CONTROL G?) 


FREER EERE EEE ERE EERE EEE EEE EKER KK 


;FTEST 72 STCDI AND STCDL TEST 


:* THIS IS A TEST OF THE STCDI AND 

;* STCDL INSTRUCTIONS. NOTE THAT A 

;* SUBROUTINE. STCSUB, IS USED TO 

;* SET UP THE OPERANDS, EXECUTE THE STC 
;* INSTRUCTION AND CHECK THE RESULT. 


seein iain cai alain tia as ia 


ST72: SCOPE 
AE ced TEST STC WITH EXP=100 (EXCESS 200) 
ls 


SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a4STCSUB :GO EXECUTE THE INSTRUCTION. 
000000 : WOR 20000.0,0,0 ACO OPERAND. 


0,0 aes ae RESULT. 

-1,°1 ;ERROR R 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 


;REPORT RESULT INCORRECT. 
RESULT INCORP. 


sEITHER (BUT FLAG) 
TOR CLEAR FLAG 
T 774 


t 


FICc=0 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a4STCSUB :GO EXECUTE THE INSTRUCTION. 
000000 : ° 40000,0,0,0 ZAC :ACO OPERAND. 


‘ ry te tH RESULT. 
=1,°1 ANTICIPATED Sapp oy RESULT. 
FPS BEFORE EXECUTION, 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
EXPECTED FEC. 


SEQ 0128 
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027776 5$: ERROR 1 REPORT RESULT INCORRECT. 
030000 0004 BR 
ERROR 1 REPORT FPS INCORRECT. 


(OCT) FIC=1 


;SET UP THE LOOP ON ERROR ADDRESS. 
031042 PC,a4 GO EXECUTE THE INSTRUCTION. 
075757 157737 : WORD Greer 15959, s77ik 167773 ;ACO OPERAND. 


173757 : 55675 ,173757 EXPECTED RESULT. 
004021 : «WORD 122102,004021 ANTICIPATED ERRONEOUS RESULT. 
: zFPS BEFORE EXECUTION. 
3FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
sEXPECTED F 
BUT” ENBT) ST 632 


1 
63 
1 REPORT FPS INCORRECT. 


FL=1 FIC=1 
SET UP THE LOOP ON ERROR ADDRESS. 
031042 PC,a4#STCSUB 7GO EXECUTE THE INSTRUCTION. 
000000 000000 : WORD 50000,0,0,0 zACO OPERAND. 
0,0 EXPECTED RESULT. 


000000 2$: . 
177777 : «WORD -1,~-1 SANTI CIPATED ania RESULT. 


; ECUTION. 

ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 

REPORT RESULT INCORRECT. 


; (BUT og ST 004 REPORT FPS INCORRECT. 
19,309 INTO 


FL=1 FIC=0 
:SET_UP THE LOOP ON ERROR ADDRESS. 
031042 PC ,a#STCSUB :GO EXECUTE THE INSTRUCTION. 
000000 : WOR 50000,0,0,0 :ACO OPERAND. 
000000 : ° 0,0 sO NTAC IBA RESULT. 
177777 : «WORD -1,~1 ANTICIPATED Spb a RESULT. 
e ; XECUTION. 
E CUTION. 
ANTICIPATED ERRONEOUS FPS. 
SEXPECTED FEC. 
REPORT RESULT INCORRECT. 


; (BUT FIC) ST ous TO 
3315 INTO 305 
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104414 
004737 


031042 
000001 


000001 
177777 


031042 
()0C001 


000000 
177777 


031042 
000000 000000 


177777 
177777 


031042 


MACY11 30A(1052) 
172 


sExP=30 (OCT) 
WwWC7: 


(OCT) 
LPERR 
JSR 
WORD 
. WORD 
; WORD 
40600 
40600 
140604 
ERROR 
th 
ERROR 
(OCT) 
LPERR 
JSR 
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STCDI AND STCDL TEST 


FIC=1 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a#STCSUB “GO EXECUTE THE INSTRUCTION. 
46000,1,0,0 ZACO OPERAND. 


200,1 EXPECTED RESULT. 

=1,°1 ANTICIPATED ERRONEOUS RESULT. 
sFPS BEFORE EXECUTION. 
SFPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 

EXPECTED FEC. 
se REPORT RESULT INCORRECT. 
1 REPORT FPS INCORRECT. 


FL=1 FIC=1 


;SET UP THE LOOP ON ERROR ADDRESS. 
PC,a4STCSUB 7GO EXECUTE THE INSTRUCTION. 
45600,1,0,0 ACO OPERAND. 


100, ? sEXPECTED RESULT. 

-1,°1 ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 

EXPECTED FEC. 
ms ;REPORT RESULT INCORRECT. 
1 REPORT FPS INCORRECT. 


FL=0 FIC=1 


;SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a#STCSUB 7GO EXECUTE THE INSTRUCTION. 
43600,0,0,0 ACO OPERAND. 


40000,-1 EXPECTED RESULT. 
0,-1 ANTICIPATED apes h ay RESULT. 
FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
ZANT ICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
te ;BAD CONSTANT ST 066 
1 ;REPORT FPS INCORRECT. 


FL=0 FIC=1 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC ,a4STCSUB 7GO EXECUTE THE INSTRUCTION, 


SEQ 0130 
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aya Osby 000000 000000 : «WORD 44000,0,0,0 sACO OPERAND. 

7109 000000 177777 2$: . sEXPECTED RESULT. 

7110 030356 177777 : ° sANTICIPATED ERRONEOUS RESULT. 
30362 040600 : sFPS BEFORE EXECUTION. 

FPS AFTER EXECUTION 

ANTICIPATED ERRONEQUS FPS. 

REPORT RESULT INCORRECT. 


;BAD CONSTANT ST 066 


EXPECTED F 


NNNN 
ed ced cd ad aad ed 


(OCT, AC NEGATIVE, FL=0, FIC=1 


NNNNN 
ab ad 


104414 SET UP THE LOOP ON ERROR ADDRESS. 
004737 031042 JSR PC ,a4STCSU8 :GC ge tes INSTRUCTION. 
142000 000000 : . 142000,0,0,0 ACO OPERAN 


177777 : ‘ 177600,-1 EXPECTED RESULT. 
000000 : ‘ 200,0 sANTICIPATED ERRONEOUS RESULT 
: FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
:ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
; (BUT ENBT) ST 632 


(SET FN) ST 473 


(OCT), FL=1, FIC=1, AC NEG. 


;SET UP THE LOOP ON ERROR ADDRESS. 
031042 S :GO EXECUTE THE INSTRUCTION. 
000000 000000 : . ;ACO OPERAND. 


000000 : ‘ TE icin RESULT. 
000000 : - WO ANTICIPATED ERRONEOUS RESULT. 
: sFPS BEFORE EXECUTION, 
FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
s EXPECTED FEC. 
; (BUT ‘4 ST 375 
BR 6 :ST 275 TO 074 
104001 INTO 374. 
030510 : 


FIC=1, AC NEG 


104414 :SET UP THE LOOP ON ERROR ADDRESS. 
031042 PC,@4STCSUB 3GO EXECUTE THE INSTRUCTION. 
000000 001000 : , 147600,0,1000,0 :ACO OPERAND. 


177777 ¢ , 137777,177777 ett ike RESULT 
177777 : -WORD 140000,177777 ANTICIPATED ERRONEOUS RESULT. 
040707 : 7 FPS BEFORE EXECUTION, 


030510 
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030554 


030554 


030726 


132 


FPS AFTER EXECUTION. 


sEXPECTED F 


g | septein ERRONEOUS FPS. 


;(BUT_ COUT) ST_375 
:T0 274 INTO 074 


;REPORT FPS INCORRECT. 


AC NEG, FL=1, FIC= 


031042 PC ,a4STCSUB 
000000 000000 : . 156200,0,0,0 : 


000000 : . 0,0 
177777 $: -WORD -<-1,-1 


sEXPECTED 


1 
6$ 
1 


AC NEG, FL=1, F 


1 


SET UP THE LOOP ON ERROR ADDRESS. 
:GO EXECUTE THE IISTRUCTION. 
[ACO OPERAND. 


sEXPECTED RESULT. 
ANTICIPATED ERRONEOUS RESULT. 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION 
ANTICIPATED ERRONEOUS FPS. 


REPORT RESULT INCORRECT. 
; (BUT EZBT) ST 377 


Ic=1 


;SET UP THE LOOP ON ERROR ADDRESS. 


031042 PC ,@4STCSUB 
000001 000000 : “ 150000,1,0,0 


000000 : ‘ 0,0 
177600 : -WORD 100000,-200 


sEXPECTED F 


[GO EXECUTE THE INSTRUCTION. 
[ACO OPERAND. 


EXPECTED matitiod 
ANTICIPATED etnies RE SUL Te 
;FPS BEFORE EXECUTION 
FPS AFTER EXECUTION. | 
ANTICIPATED ERRONEOUS FPS. 


; (BUT COUT) ST 360 
:T0 654 INTO 454 


[REPORT FPS INCORRECT. 


sEXP=40, AC NEGATIVE, FL=1, FIC=1 
WwWC16: 


031042 S PC ansTC SUB 
000000 000000 1$: A 156001,0,0,0 


000000 : , 
000000 : * 76000.0 


;EXPECTED 


SET UP THE LOOP ON ERROR ADDRESS. 
“60 EXECUTE THE INSTRUCTION, 
:ACO OPERAND. 


sEXPECTED RESULT. 

ANTICIPATED py by RESULT. 
FPS BEFORE EXECUTION 

FPS AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 


FEC 
;REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


SEQ 0132 
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030730 6$: 


2374 " (OCT), AC MOST NEG LONG INT, FL=1 


030730 : 
104414 :SET UP THE LOOP ON ERROR ADDRESS. 
37 031042 PC ,aASTC :GO EXECUTE THE INSTRUCTION. 
000000 000000 1$: . 150000, 6. Oo 0 ;ACO OPERAND. 


000000 2e$: . 1000000 EXPECTED RESULT. 
000000 3$: -WORD 0,0 sANTICIPATED ERRONEOUS RESULT. 
4$: FPS hp EXECUTION. 
3FPS ar TER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 
5$: ; (BUT NBIT) ST 654 
BR :OR (BUT COUT) ST 454 
;REPORT FPS INCORRECT. 
030774 6$: 


sExXP=20, AC = MOST NEG INTEGER, FL=0, FIC=1 


030774 
;SET UP THE LOOP ON ERROR ADDRESS. 
031042 C,a#STCSUB 'GO EXECUTE THE INSTRUCTION. 
000001 000000 : ‘ 544000. 1,0,0 ‘ACO OP OPERAND. 


177777 : ° 100000,-1 EXPECTED RESULT. 
177400 : . 100000, 177400 ANTICIPATED ERRONEOUS RESULT. 
: FPS BEFORE nai 
FPS AFTER EXECUTION. 
:ANTICIPATED ERRONEOUS FPS. 


sEXPECTED FEC. 
1 i FL) ST 633 
6$ O 655 INTO 654 
031036 1 ;REPORT ips INCORRECT. 
031040 000534 6$: WwC DONE 


:THIS SUBROUTINE, STCSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
;THE STCDI OR STCDL INSTRUCTION AND CHECK THE RESULTS. A CALL 
:TO IT IS MADE THUS: 


PC ,a#STCSUB 
WORD poneton ;AC_OPERAND 

XX EXPECTED RESULT 

X,X ERROR RESULT 
X :FPS BEFORE EXECUTION 
xX ZFPS > ioe EXECUTION 
X ROR FPS. 
x 
1 
1; 


SEXPECTED FEC 
i ERROR. 


FPS ERROR, 


BeBe Be Be Fe Be Be Be Be Be Be Be Be 


RETURN ADDRESS 
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20-JUN=79 11:22 


012601 
0 


000200 


031322 
000004 
177777 


000020 


031114 
031322 


001240 


00001 

031322 
0002 

000022 


000026 


000036 
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001236 


001242 
001252 


TCDI AND STCDL TEST 


THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
;THE STCDI OR STCDL INSTRUCTION IS EXECUTED. 

;THE RESULT IS CHECKED fare NST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
;COMPARED WITH FPSA IF THIS TOO IS CORRECT STCSUB RETURNS CONTROL 

:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD STCSUB 

:COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN LE ae WILL RETURN 

:TO THE ERROR CALL AT ERR2, OTHERWISE STCSUB ITSELF 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 

sSTCDI OR STCDL IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

;THE RESULT WAS ANTICIPATED CORRECTLY TO SE ERRES THEN STCSUB 

[WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1. OTHERWISE THE 

RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STCSUB WILL 

REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


STCSUB: aod (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 


#200,R0 :SET UP THE ACO OPERAND. 
LDFPS RO 
MOV R1,RO 
LDD (RO) ,ACO 
MOV ASTCIBF ,R2 : INITIALIZE THE OUT PUT BUFFER. 
MOV #4 RO 
1$: MOV #-1, (R2)+ 
SOB RO,1$ 
MOV 20(R1),RO zSET THE FPS. 
LDFPS R 
V #2$, aASTMP2 
MOV #STCIBF ,RO 
2$: STCDL ACO, (RO) : TEST INSTRUCTION. 
STFPS RG :GET THE FPS. 
STST —RS *GET THE FEC. 
MOV R2 
MoV R2. aASTMP3 
ADD #10,R2 
MOV R2, aASTMPS 
MOV ASTCIBF ,a#STMP4 
MOV R4, aASTMP 
MOV 22(R1) , a#$TMP10 
MOV R1,R2 
ADD #10,R2 
MOV #STCIBF RO ;SEE IF THE RESULT IS CORRECT. 
MOV #2,R 
3$: CMP (RO) +, (R2)+ 
BNE 15$ 
S0B R3,3$ 
MOV 22(R1) ,R2 
CMP R2,R4 :SEE IF THE FPS IS CORRECT. 
BNE 20$ SBRANCH IF INCORRECT. 
TST R2 
BPL 4$ 
CMP 26(R1) RS ;SEE IF THE FEC IS CORRECT. 
BNE 25$ SBRANCH IF INCORRECT. 


4$: JMP 36(R1) ;RETURN. 


SEQ 0134 
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031232 010102 
031234 2702 


031262 
031262 


031300 
031302 
031320 
031322 177777 


031330 177777 


031332 
031332 104413 


031334 000004 


031336 
031336 104414 


000030 


000024 
000034 


000026 
001254 


177777 
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001256 


177777 


TCD] AND STCDL TEST 
;DATA_ ERROR 


“SEE IF THE FAILURE WAS ANTICIPATED. 
15$: MOV 


»R2- 

#STCIBF .RO 

16$: (RO) +, (R2)+ 
17$ 


R3,16$ 
30(R1) 


17$: 
;FAILURE WAS NOT ANTICIPATED SO REPORT INCORRECT RESULT HERE. 
18$: ERROR 1 :DATA BAD 
4$ 
;FPS INCORRECT, SO SEE IF FAILURE WAS ANTICIPATED. 
20$: CMP R4,24(R1) 


BNE 
ae JMP 34(R1) 
sNOT ANTICIPATED SO REPORT BAD FPS HERE. 
ees: ERROR 1 


;REPORT INCORRECT FEC. 
253: MOV 26(R1) ,AASTMP12 
MOV R5,a4$TMP11 
26$: ERROR 1 
BR 4$ 


DATA BUFFER: 
STCIBF: .WORD =1,~-1,-1,-1 


WWCDONE : 
RSETUP 3;GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
3 THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
: THE USER TYPED CONTROL G?). 


SRK RRR KKK KEKE KKK KK EERE RAKE ERE EE 


S*TEST 73 STCFL AND STCFI TEST 


** 
:* THIS IS A TEST OF STCFL AND STCFI. IT 

:* MAKES USE OF THE SAME SUBROUTINE, STCSUB, 
;* WHICH WAS USED TO TEST STCDL AND STCDI. 

PITITI TITTLE ETTTTTTTITTTLT TELE TTT T TTT TTT Tee 


* 
1S173: SCOPE 


17 eamalaale FL=1 
x 2 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0135 
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031042 PC, a4STCSUB :GO EXECUTE THE INSTRUCTION. 
177777 (177777 ~«‘1$: : 47777,-1,-1,-1 =4CO OPERAND. 


177600 2$: «WORD 77777,177600 EXPECTED RESULT. 
177777 3$: - WO 77777 177777 sANTICIPATED ERRONEOUS RESULT. 
4$: 7FPS BEFORE ty Ap pl ng 
[FPS AFTER EXECUTION. 
ZANTICIPATED ERRONEOUS FPS. 
sEXPECTED FEC. 


5$: 7X11(1,0)+0 ST 773x 
BR 


REPORT FPS INCORRECT. 
031402 6$: 


031402 XXCDONE : 

031402 104413 :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
sVIRTUAL_ CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FERRER KERR ERE REE REE RR K KEKE KR ERKEEEEKEKEERKK RK K 


TRTEST 74 STEXP TEST 


5? 
:* THIS IS A TEST OF THE STEXP 
;* INSTRUCTION 


ee ig tc ahaa atid aati 


** 
rg SCOPE 
100 (EXCESS 200) 
;SET UP THE LOOP ON ERROR ADDRESS. 
031674 J PC ,a#STXSUB 
000060 000000 1$: ° 20000,0,0,0 ZAC 


EXP RES 
i EXP. 
FPSB 


sFPSA 
TERROR FPS 
:BAD EXP 


031444 3+(BUT ENBT) ST 376 


031444 
SET UP THE LOOP ON ERROR ADDRESS. 
031674 -@ASTX :GO chee si INSTRUCTION. 
000000 000000 : -WORD 40000,0,0,0 :ACO OPERAN 


0 ;EXPECTED EXPONENT RESULT. 
52525 SANTI CIPATED ERRONEOUS RESULT. 
40000 PS BEFORE EXECUTION. 


SEQ 0136 
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031470 40004 FPS AFTER EXECUTION. 
40000 ; ANTICIPATED ERRONEOUS FPS. 
— 1 sREPORT RESULT INCORRECT. 
ERROR 1 ; (BUT _EZBT) ST 071 
:TO 072 INT 272 
031502 
201 (EXCESS 200) 


031502 


SET UP THE LOOP ON ERROR ADDRESS. 
031674 PC ,@#STXSUB 7GO EXECUTE THE INSTRUCTION. 
000000 000000 : . 40200,0,0,0 ;ACO OPERAND. 


sEXPECTED EXPONENT RESULT. 
SANTICIPATED ERRONEOUS RESULT. 
PS BEFORE EXECUTION. 
‘EPS AFTER EXECUTION. 
sANTICIPATED ERRONEOUS FPS. 
is REPORT RESULT INCORRECT. 
1 ; (BUT _EZBT) ST _Q71 
031540 : :TO0 272 INTO 072 


375 (EXCESS 200) 


031540 
:SET UP THE LOOP ON ERROR ADDRESS. 
031674 PC ,@#STXSUB :G0 goth THE INSTRUCTION. 
000000 000000 : ° 77200,0,0,0 ZACO OPERAND. 


sEXPECTED EXPONENT RESULT. 
;ANTICIPATED ERRONEOUS RESULT. 
FPS BEFORE oer 
SFPS AFTER EXECUTION. 
SANTICIPATED ERRONEOUS FPS. 
be REPORT RESULT INCORRECT. 
1 ; (BUT_ENBT) ST 376 
031576 : :T0 471 INTO 071 


031576 
SET UP THE LOOF ON ERROR ADDRESS. 
031674 PC ,@#STXSU3 :GO EXECUTE THE INSTRUCTION, 
000000 000000 : . 200,0.0.0 :ACO OPERAND. 


EXPECTED EXPONENT RESULT. 
:ANTICIPATED ERRONEOUS RESULT. 
S BEFORE Aa Ae Uf ge 
‘FPS AFTER EXECUTION 
SANTICIPATED ERRONEOUS FPS. 
REPORT RESULT INCORRECT. 
031630 
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104001 


000510 


031674 
031676 
031700 
031704 


031674 
000000 000000 


001240 
000010 
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STEXP T 
ERROR 1 REPORT FPS INCORRECT. 


6$: 


; EXP = 156 (EXCESS 200) 


SET UP THE LOOP ON ERROR ADDRESS. 
PC ,@A4STXSUB :GO EXECUTE THE INSTRUCTION. 
33400,0,0,0 ;ACO OPERAND. 


sEXPECTED EXPONENT RESULT. 
:ANTICIPATED ERRONEOUS RESULT. 
S BEFORE EXECUTION. 
Eps AFTER EXECUTION. 
ANTICIPATED ERRONEOUS FPS. 
is REPORT RESULT INCORRECT. 
1 sREPORT FPS INCORRECT. 


6$: YY CDONE 


3 THIS SUBROUTINE, STXSUB, IS USED TO SET UP THE OPERANDS, EXECUTE 
>THE STEXP INSTRUCTION AND CHECK THE RESULTS. A CALL 
:TO IT IS MADE THUS: 


PC ,@4#STXSUB 
-WORD X,X.X,X ;AC_OPERAND 

X SEXPECTED RESULT 
ERROR RESULT 
x FPS BEFORE EXECUTION 
x :FPS AFTER EXECUTION 
X ERROR FPS. 
1;DATA ERROR. 
CONT 


FPS ERROR. 


RETURN ADDRESS 


THE OPERANDS ARE SET UP (USING ce AS THE ACCUMULATOR). THEN 
; THE STEXP_INSTRUCTION IS EXECUTED. 

: THE RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
[COMPARED WITH FPSA IF THIS TOO IS CORRECT STXSUB RETURNS CONTROL 

:T0 THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD STXSUB 

;COMPARE IT TO ERROR FPS. IF THIS MATCHES THEN ine WILL RETURN 

;TO THE ERROR CALL AT ERR2, OTHERWISE STXSUB ITSELF 

[REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE tog OF THE 

:STEXP IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 

SANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

;THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN STXSUB 

WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR1- OTHERWISE THE 
RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND STXSUB WILL 
sREPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 


STXSUB: ee a ao” RI :GET A POINTER TO THE ARGUMENTS. 


1,R2 
R2 — 
#10,R 


SEQ 0138 
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031710 012237 1244 (R2)+, a4STMP5 
0 001236 
032102 
032104 #76543, aASTXBF +2 
#200,R0 


R 
R1,R0 SET UP THE ACO OPERAND. 
(RO) ,ACO 


16(R1),RO SET THE FPS. 
RO 


032102 MOV ASTXBF ,RO 
ACO, (RO) TEST INSTRUCTION. 
R4 ET FPS. 


001250 R4,aA4STMP7 
001252 16(R1) ,aA#$TMP10 
001242 QASTXBF , AASTMP4 
000010 032102 10(R1) ,@ASTXBF ;WAS RESULT CORRECT? 
5$ BRANCH IF CORRECT 
000012 032102 aieaiaaadiiaes SOTHERWISE SEE IF THE FAILURE WAS ANTICIPATED. 


032026 000022 22(R1) 
ANTICIPATED REPORT ERROR HERE. 


: ERROR 1 EXP BAD 
000030 : JMP 30(R1) 


000016 : R4,16(R1) sSEE IF THE FPS IS CORRECT. 
10$ BRANCH IF CORRECT 
000020 ons 7SEE IF THE FAILURE WAS ANTICIPATED. 


6 
000026 26(R1) 
hg ERROR WAS NOT ANTICIPATED SO REPORT ERROR HERE. 


7$: ERROR 1 :FPS BAD 
BR 4$ 


zSEE IF MORE THAN_ONE WORD WAS WRITTEN IN THE OUTPUT BUFFER. 
022737 076543 032104 10$: CMP #76543, QASTXBF +2 
001760 BEQ 4$ 
104001 118: ERROR 1 sFDFL+O0 ST 347Xx 
032076 000756 BR 4$ 


032100 177777 “1 
032102 177777 177777 177777 STXBF: .WORD -1,-1,-1,-1,-1 
032110 177777 177777 


032114 YYCDONE : 

032114 104413 RSE TUP :GO INITIAL ITE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
7 THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


DOD RR TERRE RE RE RREREKRE ERR EERE ERE 


032032 
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032116 
032120 


032126 
032130 
Seg ee 
0 


032156 
032160 


032220 
032226 


0 
032252 


032254 
032254 
032256 


032276 


170003 


012737 


022710 
001010 
022760 
001006 
022704 


001013 
000422 


104001 
000420 


022760 


040000 


032306 
177777 
177777 
032156 


000002 
032130 
140000 


177777 
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000002 
001236 


001242 
001244 
001246 


001252 


000002 


000002 


STST 
oo 75 STST TEST 
:* THIS IS A TEST OF THE STST 


;* INSTRUCTION. FIRST AN ILLEGAL Ate OP CODE 
;* (INSTRUCTION) iS USED TO ENTER 


_ sactineieeenennannhnanenanianaannanneaneninenaind 


18175: SCOPE 
EzCi2z 
LPERR SET Up THE LOOP ON ERROR ADDRESS. 
MOV #40000,R0 “SET FPS. FID=1. 
LDFPS RO 
77C2: .WORD 170003 Z ILLEGAL FPP 
“OP CODE 
MOV #77(CBF RO ;SET UP THE OUTPUT BUFFER. 
MOV #-1, (RO) 
MOV #-1,2(RO) 
MOV #2703, a4$TMP2 
77C3: STST (RO) :GET FEC AND 
STFPS RG :GET FPS. 


MOV #7ZCBF ,RO 

MOV (RO) ,a@ASTMPS 
MOV 2(RO) ,aASTMPS 
MOV #2, a4$TMPS 

MOV #2202, a4STMP6 
MOV R4,a4$TMP7 

MOV #140000 , a#$TMP10 


CMP #2,(RO) ;SEE IF FEC IS CORRECT. 


BNE 77z¢5 BRANCH IF INCORRECT. 
CMP #ZZC2,2(RO) ;SEE IF FEA, ADDRESS, IS CORRECT. 
BNE , 27€10 ‘BRANCH IF [INCORRECT 
CMP #140000,R4 SSEE IF FPS IS CORRECT. 
BNE 277¢15 ‘BRANCH IF INCORRECT. 
BR ZZCDONE 
;REPORT FEC INCORRECT 
ZZC5: 
1$: ERROR 1 :STST BAD 
BR ZZCDONE sFECKX 
;REPORT FEA paowet! 
2Z7C10: CMP #-1,2(RO) 
BEQ zzcie 
1$: ERROR zSTST BAD FEA 
BR T2CDONE 
ZZC12 
1$: ERROR 1 sSET FD FL ST 636 
BR ZZCDONE 


SEQ 0140 
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032300 
032300 
032302 


032304 
032306 
032314 
032316 


032320 
032324 


032326 
032330 
032 


032402 


032404 
032406 


032410 
032414 
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104001 
000406 


177777 
177777 
177777 
177777 


012706 
104413 


000004 


012746 
012746 
00 


177777 


001100 


144724 
040600 


040600 
000004 
032404 
036711 


152000 


001100 


MACY11 30A(1052) 
775 ST 


177777 


032404 


032406 


20-JUN=79 
ST TEST 


REPORT FPS INCORRECT 
22(15: 
1$: ERROR 

BR 22CDONE 
DATA BUFFER: 
27CBF: .WORD =1,=1,-1,-1 

-1 

#STACK, SP 


ZZCDONE :MOV 
RSE TUP 
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:FPS X AFTER ST ST 


SET UP STACK POINTER 

GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


SRK EEKEKEKEKK KE 
SPECIAL CASE TEST 

2*THIS TEST IS DERIVED FROM THE FORTRAN 4 BENCH MARKS 

2*1T WAS FOUND THAT THIS CODE FAILED EVEN THOUGH THE 

;*FP UNIT HAD PASSED THE DIAGNOSTICS. THE HARDWARE WAS 

;*MODIFIED TO CURRECT THE ERROR BUT SINCE A TEST DEFICIENCY 

:*WAS INDICATED THIS TEST WAS ADDED. 

:*ALL THE TEST DOES IS PUT A aye NUMBER IN THE FPAC 

:*AND SUBTRACTS A WHOLE NUMBER FROM IT 


ZS III IIO IOI IIIIOI IIIS IUIOIOIOIIDIOIOI III IOS ISI III IIIT i tok 


SSTEST 76 


18176: SCOPE 
AAD1: MOV 


#144724, -(SP) 
#40600, -(SP) 
SP) 


#40600, -(SP) 
ACO 


ACO, @#AADBF 
#36711, @A4AADBF 


PUT FRACTION ON STACK 
PUT EXPONENT ON STACK 
[PUT SUBTRAHEND FRACTION ON STACK 
[PUT SUBTRAHEND EXPONENT ON STACK 
LOAD FP ACCUMULATORS 
:D0_ SUBTRACTION 
[GET AND STORE ANSWER 
21S EXPONENT CORRECT 
iIF YES GO CHECK FRACTION 
PONENT FROM SUBTRACTION 


> BAD EX 
tii tne & aM AADBF +2 21S FRACTION CORRECT 


0 
0 


AMSTACK, SP 


:I1F YES GO TO END OF TEST 
FRACTION INCORRECT 


RESTORE STACK POINTER 
:GO INITIALIZE THE FPS AND STACK; AND 
SSEE IF THE USER HAS gt ie 


HE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?) 


SEQ 0141 
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032416 
032420 


032644 
032650 
032652 
032654 


000004 
032737 
03 


000027 
000000 


600001 


146440 


146434 
000100 


2 
000110 
032624 


146370 
146366 
146360 


146354 
000100 
040400 
040400 


032610 


000002 
000004 
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001336 


4655 
4655 
4537. 

146424 


145312 


146344 


000010 


SPECIAL CASE TEST 


ORAS SIOIIOIOIDISIIOIOIOIOINIIOIIOIUIOIOIOIOIOIOI TOTTI TOT ITT I TOTTI TI TOT E 
SRTEST 77 INTERRUPTABILITY TEST 
:* F11_INTERRUPTABILITY TEST 
:* THIS TEST WILL VERIFY THE ABILITY OF THE KEF11-A FLOATING 
:* POINT PROCESSOR TO BE INTERRUPTED DURING EXECUTION 
** OF MICRO-CODE MULTIPLY LOOP. 
AAI IOIOIOIDIIDIOIOIOIUIOII IOC IOI TOTTI OTTO TIT OTTO TT TST IT TST IE 


S177: 


2ZD1: @MSENV ;ARE WE ON APT 
B 2ZD2 :1F NO DO THIS TEST ALWAYS 
@4$SPASS IF YES THEN CHECK PASS COUNTER 
BN EXITER SAND ONLY DO IT ON FIRST PASS 
27De: : R1 : INIALIZE A COUPLE OF COUNTERS 


RO 

#2, AC2 sMAKE SURE FP ACCUMALATOR NON-ZERO 
TPVEC, $TMPQ ;SAVE INTERRUPT VECTOR 
TPVEC+2,$TMP1; 


ZSET PROCESSOR PRIORITY TO 0 
SEND A CHARACTER 
;WAIT FOR DONE ON THIS CHARACTER 


a$TPB SEND A_SECOND CHARACTER 
_ @$TPS ;SET INTERRUPT ENABLE 


: INCREMENT COUNT 

IF _NO INTERRUPT erty 0 ERROR 
7CLEAR ALL BITS IN S 
[NO INTERRUPT OCCURR ED 
; SUBTRACT fa FOR FP INSTRUCTION 
sSAVE PRE L T 
SET UP VECTOR FOR INTERRUPT FROM FP 
sMAKE COUNT NEGATIVE 

;DON'T ALLOW INTERRUPTS ON FIRST CHARACTER 
:SEND FIRST CHARACTER 
SWAIT FOR READY 


SEND SECOND CHARACTER 
@$TPS ;SET INTERRUPT ENABLE 
DO PRE LOOP 


:DO FP_INSTRUCTION 

JUST INCASE INTERRUPT ery TOO LATE 
:CLEAR_ALL STATUS BITS IN SLU 

;NO INTERRUPT OCCURRED SO ERROR 

1S PC _ON STACK POINTING TO FP INSTRUCTION 
:IF YES W E DONE 

[UPDATE STACK POINTER 

ZADD A LITTLE TIME TO PRE LOOP 

PUT NEW COUNT IN LOOP COUNTER 

:DO IT ALL AGAIN 


SEQ 0142 
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032656 ZZDDONE : 

032656 2777 000100 64 BIC a$TPS ;CLEAR INTERRUPT ENABLE BIT 
032664 146342 TPVEC — ; 

032672 146336 MOV T TPVEC+2 ; 

032700 ; 


3 IRE T ES 
ZVIRTUAL CONSOLE SWITCH a (HAS 
;THE USER TYPED CONTROL G?) 


032702 032724 EXITER: #1$ 044 ;SET UP FOR TIMEOUT OF NO MULTI-TESTER 
00034 . 6 M ; 


340 #340 ,a46 ; 
000001 #1 04164000 ;SET "'STOP'’ ON MULTI-TESTER 
000006 000002 1$: #6, 044 RESTORE TRAP CATCHER 
032732 000006 av6 


032736 TST100: 


-SBTTL END OF PASS ROUTINE 


ee 
‘ kINCREMENT THE PASS NUMBER (SPAS 

: x INDICATE END-OF -PROGRAM AFTER ; PASSES THRU THE PROGRAM 

z*TYPE ‘END PASS #XXXXX"’ — XXXXX IS A DECIMAL NUMBER) 

:*IF SW12=1 INHIBIT TRACE T 

;*IF THERES A MONITOR GO iT IT 

:*IF THERE ISN'T JUMP TO LOOP 


SEOP: 


146136 2 ZERO THE TEST NUMBER 
:ZERO THE NUMBER OF ITERATIONS 
0 $PASS 7: INCREMENT THE PASS NUMBER 
100000 146342 7 apatite ee! ALLOW A NEG. NUMBER 
+ 


DE re 
SEOPCT: 
BG 


$DOAGN seYES 
MO (PC)+,a(PC)+ ;sRESTORE COUNTER 
SENDCT: ; 1 


033121 SENDMG ::TYPE “END PASS oe 
146316 MOV $PASS,-(SP) ;SAVE SPASS FOR TYPEQUT 

0 TYPES DECIMAL ASCII WITH SIGN 
033116 T ,SENULL iETY PE A NULL CHARACTER 
000042 $GET42: MOV a442,R0 ::GET MONITOR ADDRESS 
B $DOAGN - NO_MONITOR 

BIT 1S CLEAR 

RTI ORR 


:GO_DO AN RTI OR RIT TO. LOAD THE PSW 
WITH A CLEARED ‘'T’’ BIT 
033032 


033032 013700 000042 "Mo a#42,R0; , :z INSURE RO CONTAINS THE MONITORS 
033036 001405 $DOAGN » SIRETURN ADDRESS 


~(SP) 
033032 #$CLR.T,-(SP) 
BR $RTRN 
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033146 
033150 
033152 
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00004 3 


104407 
032777 
001114 
000416 


013746 


000020 
010000 
000020 


000020 
033110 


377 
042412 
051501 


040000 


000004 
033176 
177060 
000004 


000004 
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146052 


000 
042116 
020123 


145772 


000004 


SENDAD: 


SDOAGN: 


$ENULL: .BYTE 1,-1.0 
“ASCIZ. <15><12>/END PAS 


SENDMG: 


- SBTTL 


:*SW14=1 
7*SW11=1 
3 *SWO9=1 
7 *SWO8=1 
7 *CALL 


'* 
° 


$SCOPE : 
1$: 


E 
: AAMAMSTART 


$XTSTR: 


5$: 
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ET 
JSR 


PC, (RO) 


#20, (SP) 
> dh cadena 


$TBIT 
: 


$ 
#20, (SP) 
#$LOOP ,-(SP) 


a(PC)+ 
LOOP 
0 


SCOPE HANDLER ROUTINE 


IDUIOIOIOIIIIIOIIIIIIIIDIDIDIDIOIDIDIOIOIOIIIIIOIOIOIUIOIOIIIOIOIIOIIIOIOIUIUIIUIUIIIIIIDIIIDIOIIOIIDIOIIOI OID 
“THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(S$TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 

:*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

i*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


SCOPE 
CKS 
BIT 
BN 


BR 


LOOP ON TEST 


77CLEAR THE WORLD 
;:GO TO MONITOR 


: =PUSH s PSW AND PC ON STACK 
3-CLEAR THE ‘'T’’ BIT 
cot or ie TRACE TRAP? 


;BR 
31S 4 TIME FOR TRACE TRAP 


F_NO 
37SET TRACE TRAP 
::JUMP TO START OF TEST 
ip Ab resiee IS CHANGED TO 
"RIT IF “RTT IS A LEGAL 
i UINSTRUCTION 


7 ZRETURN 
::''T’' BIT STATE INDICATOR 


3sNULL CHARACTER STRING 
S &/ 


INHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP ON TEST IN SWR<7:0> 
:;SCOPE=I0T 


#B1T14,aSWR 
SOVER 


OV 
OF oy FOR THE XOR 


@AFERRVEC ,~(SP) 
aoreeecnees 


a4177060 
(SP) +, @#ERRVEC 
$SVLAD 

(SP) +, (SP) + 
sSP)*, + ,@AERRVEC 


:TEST FOR pom a IN thet SWR 
3 SLOOP ON PRESENT TEST? 
YES IF SwW14=1 


TESTERMMAAH 
:21F RUNNING ON THE oe TESTER CHANGE 
;THIS INSTRUCTION TO A ‘NOP’' (NOP=240) 


7:SAVE THE CONTENTS "OF THE ERROR VECTOR 
23 SET FOR TIMEOUT 

: TIME QUT ON XOR? 
: :RESTORE THE ERROR VECTOR 

O TO THE NEXT TEST 

[CLEAR THE STACK AFTER A TIME OUT 
ZIRES TORE THE ERROR VECTOR 

ON THE PRESENT TEST 


LOOP 
6$: [ WURABEND OF CODE FOR THE XOR™ TESTERAMHAA 


SEQ 0144 
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032777 
001404 


j 
104407 
Aes 


001402 


000400 
145716 
145651 
145655 
001000 
145630 
145613 
146006 
004000 
146012 


145564 
145756 


145474 


145457 


145450 
002000 
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145724 
145656 


145641 
145666 
145624 


145634 


145556 


145546 
145736 


145744 


145506 
145476 
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— HANDLER ROUTINE 


2s: 


7$: 
4$: 


3$: 


1$: 
$SVLAD: 


S$OVER: 


SMXCNT: 
. SBITL 


RT 
1 


a 
@aSWR,$TSTNM 
$SOVER 

tales 
ee 
> ghee pat 
$LPERR,$LPADR 
$SOVER 


SERFLG 
STIMES 


1$ 
#B1T11,aSWR 
1$ 

$PASS 

1$ 

SICNT 
$TIMES,SICNT 
SOVER 
#1,$1CNT 
SMXCNT ,STIMES 
STSTNM 
STSTNM,STESIN 
(SP), $LPADR 
(SP) ,SLPERR 


$SESCAPE 
#1, SERMAX 


$TSTNM,@DISPLAY : 


$LPADR, (SP) 


ERROR HANDLER ROUTINE 
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At eh — TEST? 
330N ie RIGHT TEST? 
se YES 

S AN ERROR OC CURRED? 
:3MAK. — FOR THIS TEST OCCURRED? 
;;LOOP ON ERROR? 
$e IF NO 
:;SET LOOP ADDRESS TO LAST SCOPE 
::ZERO THE ERROR FLAG 


SWR<7:0> 


7-CLEAR THE NUMBER OF ITERATIONS TO MAKE 


;sESCAPE TO THE NEXT TEST 
4? a + ta alacant S? 
self FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
7: INCREMENT ITERATION COUNT 
+ CHECK THE NUMBER OF ITERATIONS MADE 
:BR IF MORE ITERATION REQUIRED 
;;REINITIALIZE THE ITERATION COUNTER 
;-SET NUMBER OF ITERATIONS [0 DO 
::COUNT TEST NUMBERS 
::SET TEST NUMBER iN APT MAILBOX 
:zSAVE SCOPE LOOP ADDRESS 
;:SAVE ERROR LOOP ADDRESS 
+: CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
7:DISPLAY TEST NUMBER 
; sFUDGE _— ADDRESS 


:cFIXES P 
3 sMAX. NUMBER OF ITERATIONS 


ECP PPP PPP iii r recite ti itt iti ttt ttt titi titititi titi tite) 
;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM Ae AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERTYPE ON ERROR 

>*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


2*SW15=1 
7 *SW13=1 
7*SW10=1 
2 *Sw09=1 
7 *CALL 


** 


$ERROR: ; 


7$: 


HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 

LOOP ON ERROR 

N ;ERROR=EMT AND N=ERROR ITEM NUMBER 
:-TEST FOR ang IN SOF T=-SWR 

SERFLG oe THE ERROR FLAG 

7$ ON*T LET THE FLAG GO TO ZERO 

$TSTNM,@DISPLAY ; DISPLAY TEST NUMBER AND ERROR FLAG 

#B1T10,aSWR BELL ON ERROR? 

1$ INO ~- SKIP 


SEQ 0145 
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001306 1 2 ¢RING oO 
145436 1$: SER COUNT THE NUMBER OF ERRORS 
145436 (SP), SERRPC 3:GET ADDRESS OF ERROR INSTRUCTION 
000002 145430 P 
145424 145420 @SERRPC,$ITEMB ;;STRIP AND SAVE "s ee ITEM CODE 
020000 145436 #B1T13,aSWR 3;SKIP TYPEOUT IF 
20$ 3;SKIP_TYPEOUTS 
002314 PC ,ERTYPE ::GO TO USER ERROR ROUTINE 
001313 - SCRLF 


122767 000001 145614 MHAPTENV, SENV ; RUNNING IN APT MODE 

001007 $ :=NO,SKIP APT ERROR REPORT 

116767 145364 000004 $ITEMB,21$ :-SET ITEM NUMBER AS ERROR NUMBER 
004767 001126 —" ;sREPORT FATAL ERROR TO APT 


0 
22$ 3 sAPT ERROR LOOP 
145372 S$: aSWR ;HALT ON ERROR 
. 3$ 3 SKIP IF dll 
ea ON ERROR 
TEST FOR CHANGE IN SOF T-SWR 
001000 145356 3$: > ‘helenae ::LOOP — SWITCH SET? 


145320 $LPERR, (SP) ::FUDGE RETURN FOR LOOPING 
145510 4$: ate +s CHECK , oo ESCAPE ADDRESS 


$ IF NON 
016716 145502 $$ SESCAPE , (SP) FUDGE RETURN ADDRESS FOR ESCAPE 


022737 033042 000042 > ett :FRRANCH > aac 


7 RETURN 
-SBTTL SAVE AND RESTORE RO=RS ROUTINES 


III II IISIIIDIUISIIIOIUIUIUIUIUIOIIOIIIIOIUIOIIIIIUIUIUIDIOIIOIOIIOIOIO IOI foto 
“ RSAVE RO-R5 
7 *CALL: 


* SAVREG 
;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


a& 

3 *TOP---(+16) 
;* +2——--(+18) 
s% +4—-=--R5 

s% +6---R4 

s% +B---R3 
:*+10---R2 
;*+12---R] 
3*+14---RO 


SSAVREG: 
010046 MOV RO,-(SP) : PUSH RO ON STACK 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 3;PUSH R3 ON STACK 


6$: 
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R4,-(SP) 3=PUSH R4 ON STACK 
R5,-(SP) ; 5 

000022 22(SP) ,=(SP) 

000022 22(SP) ,=(SP) 

000022 22(SP) ,=(SP) 

000022 22(SP) ,-(SP) 2SAVE PC 


;*RESTORE RO-R5 
*CALL: 


ed RESREG 
$RESREG: 
MO 


(SP)+,22(SP) 2 ¢RESTORE os 


::POP STACK 
° :sPOP STACK 
(SP)+,RO :sPOP STACK INTO RO 
033710 000002 


-SBTTL TYPE ROUTINE 


JOISTS IIA IIIS AIISS IIS AISI SI IISISI ASI ASSA SAM 
‘ RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
s # THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*NOTE1: $NULL_ CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
“ eNOTE2: $FILLS CONTAINS THE NUMBER OF FILLER a Vi REQUIRED. 
; *NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER 


ieCA LL: 
:*1) a A TRAP INSTRUCTION 
TYPE »MESADR izMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
MESADR 


033712 105767 145241 : STPFLG 2i1S ee A TERMINAL ? 
100002 BP 1$ YES 
:IHALT HERE IF NO TERMINAL 


3$ ee 
: RO,-(SP) SAVE RO 
000002 a2(SP) ,RO GET gg iy OF ASCIZ STRING 
000001 145376 #APTENV, SENV : «RUNNING IN APT MODE 

BNE :NO,GO CHECK FOR tt Fae 
000100 145367 #APTSPOOL ,SENVM ::SPOOL MESSAGE TO AP 

EQ 62$ ies GO CHECK FOR CONSOL E 

000004 RO,61$ SETUP MESSAGE ADDRESS FOR APT 
000672 J ar eearys ; E APT 


61$: WO 3 ADDRESS 
0337 000040 145345 62$: MAPTCSUP, SENVM T CONSOLE SUPPRESSED 
033772 BN 60$ YES, SKIP TYPE OUT 
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8059 


81 


oa ss rs 
SwWwr-oO 


033774 
Osta 
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000002 
000011 
000200 


000130 


000056 
145104 


145074 
000001 


000032 
000072 


000040 
000014 
000007 


145020 


000002 
000015 


000014 
000012 


MACY11 "Fos ihe 


000052 


145012 
000002 


000002 


-SBTTL BINARY TO OCTAL (ASCII) 


20-JUN=79 
ROUT INE 
2$ MOVB (RO) +,=(SP) 
BNE 4$ 
TST (SP) + 
60$: MCV (SP) +,RO 
3$: aT #2, (SP) 
4$ CMPB #HT , (SP) 
BEQ 8$ 
CMPB ACRLF , (SP) 
BNE 5$ 
TST (SP) + 
TYPE 
$CRLF 
CLRB $SCHARCNT 
BR 2$ 
5$: JSR PC,$TYPEC 
6$: CMPB S$FILLC,(SP)+ 
BNE 2$ 
MOV $NULL ,- (SP) 
7$: DECB 1(SP) 
BLT 6$ 
JSR PC, $TYPEC 
DECB $CHARCNT 
BR 
;HORIZONTAL TAB PROCESSOR 
8$: MOVB #* (SP) 
9$: JSR PC, $TYPEC 
BITB #7, $CHARCNT 
BNE o$ 
TST (SP) + 
BR $ 
$TYPEC: TSTB a$TPS 
BPL $TYPEC 
MOVB 2(SP) ,a$STPB 
CMPB #CR,2(SP) 
BNE $ 
CLRB $CHARCNT 
R $TYPEX 
1$: CMPB ALF, Paty 
BEQ $TYP 
INCB Pe 
$CHARCNT:.WORD O 
$TYPEX: RTS PC 


F 12 
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3 PUSH CHARACTER TO BE haa 34 ONTO STACK 
:¢BR IF IT ISN'T THE TERMINATOR 
;1F TERMINATOR POP IT OFF THE STACK 
7 :RESTORE RO 
ee RETURN PC 


3 RETURN 
; BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


73POP <CR><LF> EQUIV 
::TYPE A CR AND LF 


At ae CHARACTER COUNT 


; CTER 

21S IT TIME FOR FILLER CHARS.? 
:1F NO GO GET NEXT CHAR 

7:GET # OF FILLER CHARS. NEEDED 

:sAND THE NULL CHAR. 

;:DOES A NULL NEED TO BE TYPED? 

:3BR IF NO=--GO POP THE NULL OFF OF STACK 

::GO TYPE A NULL 

+#D0 - COUNT AS A COUNT 


3 sREPLACE TAB WITH SPACE 
7s TYPE A SPACE 

a te NOT AT 

:zPOP SPACE OFF STACK 

::GET_ NEXT CHARACTER 

:zWAIT UNTIL PRINTER IS READY 


441 we CHAR TO BE TYPED INTO DATA REG. 
; fp Rg Yo A CARRIAGE RETURN? 


NO 
:YES--CLEAR CHARACTER COUNT 
21S CHARACTER A LINE FEED? 
CH_IF YES 


7:COUNT THE CHARACTER 
::CHARACTER COUNT STORAGE 


AND TYPE 


DOI OID IOIUIOIIOIOIOIOIIIOIOIOIDIIOIIOIOIOIOIOIOIIOIII III IOI IOI IOI IOI Te te 
SS THIS ROUTINE IS USED TO one A 16-BIT BINARY NUMBER TO A 6-DIGIT 
>*OCTAL (ASCII) NUMBER AND TYPE IT 
;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;*CALL: 


is MOV 


NUM, = (SP) 


; ;NUMBER TO BE TYPED 


SEQ 0148 
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CJKDDA.P11 


002402 


000000 
000002 
000001 


000006 
000005 


000145 
000006 


000012 


000076 
177770 


000032 


MACY11 


000211 


000171 
000165 
000154 


G 12 
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BINARY TO OCTAL (ASCII) AND TYPE 


3:CALL_FOR TYPEOUT 
se on $ FOR NUMBER OF DIGITS TO TYPE 
:1=TYPE LEADING ZEROS 
:t0= SUPPRESS LEADING ZEROS 


: #$TYPON-==-ENTER Pate TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
mw rheeeg OR $TYPO 


NUM , = (SP) ; NUMBER TO BE TYPED 
7zCALL FOR TYPEOUT 


-* 
A + hea taaa esa HERE FOR TYPEOUT OF A 16 BIT NUMBER 
** 3 


MOV NUM, =(SP) : NUMBER TO BE TYPED 
TYPOC 7zCALL FOR TYPEOUT 


$TYPOS: a(SP) ,-(SP) :sPICKUP THE MODE 
M 1(SP) ,$OF ILL :zLOAD ZERO FILL SWITCH 
(SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
#2, (SP) : sADJUST RETURN ADDRESS 


BR $TYPON 
$TYPOC: #1,$0F ILL ;;SET THE ZERO FILL SWITCH 
SET FOR SIX(6) DIGITS 


MO 
$TYPON: SISET THE ITERATION COUNT 
MO 33 R3 


;SAVE R5 
SIGET THE NUMBER OF DIGITS TO TYPE 


;;SUBTRACT IT FOR MAX. ALLOWED 
7sSAVE_IT FOR USE 
2iGET THE ZERO FILL SWITCH 


scC T WORD 
; ROTATE MSB INTO ‘'C’' 
DO MSB 


7sFORM THIS DIGIT 


::GET LSB OF Hy sisit 
23 TYPE THIS DIGIT 
;BR IF NO 
S:GET rie OF JUNK 
g3 FOR 0 
SuPrRESS Tos 0? 
7;DON'T SUPPRESS ANYMORE 0'S 
: MAKE THIS DIGIT ASCII 
sMAKE ASCII IF NOT ALREADY 
:: SAVE FOR TYPING 
= GO gS mys DIGIT 


TBR IF MORE TO DO 
:2BR IF DONE 


SEQ 0149 
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CJKDDA.P11 


034420 


000 
000000 


010046 


052702 


000002 000004 


020200 
000020 


000055 
034636 
000040 


034626 


000001 
000060 
000040 


MACY11 30A(1052) 


900001 


177777 


20=JUN=79 
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BINARY TO OCTAL (ASCII) AND TYPE 


6$: 


8$: 


$OCNI: . 
SOFILL: . 
SOMODE : 


- WORD 


R4 


2$ 

(SP)+,R5 
(SP) +,R4 
(SP)+,R3 
2(SP) ,4(SP) 
(SP)+, (SP) 


0 
0 


+ ¢ INSURE LAST DIGIT ISN'T A BLANK 
O DO THE LAST DIGIT 

ZIRESTORE R5 

7 sRESTORE R4 

7 sRESTORE R3 

7sSET THE STACK FOR RETURNING 


; ;RETURN 
;zSTORAGE FOR ASCII DIGIT 
32 TERMINATOR FOR TYPE ROUTINE 
:;O0CTAL DIGIT COUNTER 
+s ZERO FILL SWITCH 
> 3NUMBER OF DIGITS TO TYPE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


FRA EERE EERE REEEREREKREEERERE KKK E 


SRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A 


MINUS SIGN WILL BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
ae WITH SPACES. 


MOV 


$TYPDS: 


NUM ,=(SP) 


RO,-(SP) 


R5,~-(SP) 
#20200,-(SP) 
20(SP),R5 
1$ 

R5 

#*=,1(SP) 

RO 


#SDBLK,R3 
a  (R3) + 


2 
$DTBL(RO),R1 
R1,R5 


6$ 
1(SP) ,-1(R3) 
*0,Re 


;sPUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


; PUSH RO ON STACK 


Cc 
SISET BLANK SWITCH AND SIGN 
2 iGET THE INPUT NUMBER 


*. I E 
:-SET THE FIRST CHARACTER TO A BLANK 
a a THE BCD NUMBER 
T THE CONSTANT 
> FORM — BCD DIGIT 


77BR IF 
3: INCREASE THE BCD DIGIT BY 1 


:zADD BACK THE CONSTANT 
::CHECK IF BCD DIGIT=0 
33FALL THROUGH IF 0 

oe sratt St LEADING 0°S? 


: MSD? 

7:BR IF NO 

22 YES--SET THE SI 
7ZMAKE THE BCD ai! 


GN 
GIT 
3zMAKE IT A SPACE IF 


ASCII 
NOT ALREADY A DIGIT 
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CJKDDA.P11 


20-JUN=79 11:22 


110223 
00 


112767 
112767 
000403 
112767 


000010 


177777 


034636 
000002 


000001 
000001 
000001 


000206 
000001 
000100 
000004 
000002 
144354 
144362 
144352 


144346 
000004 


000004 
000002 


MACY71 a al 26 


177776 


000004 


000236 
000226 


000220 


144424 
144415 


000004 


144322 


000016 
000004 
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151 


VERT BINARY TO DECIMAL AND TYPE ROUTINE 


8$: TSTB 


9$: CLRB 


R 
$DTBL: Ms 


10. 
$DBLK: .BLKW 


R2, (R35) 
(Rb) + 


(SP) + 

9$ 

-1(SP) ,=2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP) +,RO 

. $DBLK 
2(SP) ,4(SP) 
(SP) +, (SP) 


4 


3sPUT_THIS CHARACTER IN THE OUTPUT BUFFER 
2sJUST INCREMENT ING 

7sCHECK THE TABLE INDEX 

::G0 DO a NEXT DIGIT 


; E TO ASCII 
3 WAS Mg: LSD THE FIRST NON-ZERO? 


BR 
ives—~set THE SIGN FOR TYPING 
::SET THE TERMINATOR 
3zPOP STACK INTO R5 
:3zPOP STACK INTO R3 
3zPOP STACK INTO R2 
33POP STACK INTO R1 
3zPOP STACK INTO RO 
:zNOW TYPE THE NUMBER 
: ADJUST THE STACK 


7 zRETURN TO USER 


-SBTTL APT COMMUNICATIONS ROUTINE 


FRI RRR REE RRR REE EEE KEE KER EKER EEK EE 


$ATY1: MOVB 
$ATY3: MOVB 


BR 
$ATY4: MOVB 
$ATYC: 


1$: TST 


2s: TSTB 


3$: 


#1,$FFLG 
#1, $MFLG 


SATYC 

#1,$FFLG 
RO,-(SP) 
R1,-(SP) 

$MFLG 

5$ 

lad atta 
ee 


$MSGAD ,RO 
RO 


RO, $MSGLGT 
SS OSGI WE 


a4 (SP) ,4$ 
#2,4(SP) 


::TO REPORT FATAL ERROR 
::TO TYPE A MESSAGE 


::TO ONLY REPORT FATAL ERROR 


2 ¢PUSH RQ ON STACK 
3=PUSH R1 ON STACK 
¢ ¢ SHOULD os A MESSAGE? 


:IF NOT: 
; ;0PERAT ING UNDER APT? 
NOT: BR 
: SHOULD | SPOOL MESSAGES? 


3 iGET MESSAGE ADDR. 
BUMP RETURN ADDR. 
:2SEE IF DONE if LAST XMISSION? 


WAI 
:zPUT ADDR IN MAILBOX 
:2:FIND END OF MESSAGE 


ae START OF MESSAGE 
GET MESSAGE LNGTH IN WORDS 
:PUT LENGTH IN MAILBOX 
:TELL APT TO TAKE MSG. 


:2zPUT MSG ADDR IN JSR LINKAGE 
; BUMP RETURN ADDRESS 


SEQ 0151 
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8283 
84 


035012 


035112 


035114 


035156 
035160 
03 


016746 
004767 
000000 


105767 
001416 


900040 


022767 
001074 
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142760 
176670 
000062 
144300 
144252 
000004 
000002 
144230 
00002 


0 
000013 
000006 


000176 
144014 
144010 


143760 


035523 
035530 
143002 


035541 


MACY11 gy sot 


144244 
000004 


144016 


000001 


T COMMUNICATIONS ROUTINE 


MOV 
JSR 
4$: WORD 
5$: 
10$: TSTB 
BEQ 
TST 
BEQ 
11$ TST 
BNE 
MOV 
ADD 
INC 
12$: CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
SMFLG: .BYTE 
$LFLG: .BYTE 
SFFLG: .BYTE 
EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


177776,=(SP) 
PC, $TYPE 


SFFLG 

12$ 

SENV 

12$ 

$MSGTYPE 

11$ 

@4 (SP) , SFATAL 
a SP) 


-SBTTL TTY INPUT ROUTINE 


KK RRR KK EEE EERE EEE EEE KEKE KK 


* ENABL LSB 
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33PUSH 177776 ON STACK 
7sCALL TYPE MACRO 


:sSHOULD REPORT FATAL ERROR? 
:cIF NOT: BR 
: : 7RUNNING UNDER APT? 


NOT: BR 
: FINISHED at MESSAGE ? 
NOT: WAIT 


*:GET ERROR a 
;BUMP RETURN ADDR. 
eS TELL Abt TO TAKE ERROR 
4a FATAL FLAG 
3;CLEAR LOG FLAG 
3zCLEAR MESSAGE FLAG 
3zPOP STACK INTO R1 
:3zPOP STACK INTO RO 


ce) a 
7zFATAL FLAG 


DDI IOI DIOISIDIOIOISIOIIOIOIDIOIOIOIOIOIOIOI OI ITT I TOTO TTT TT OTST TTT TTT TE 
“ kSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

:*SERVICE THE TEST FOR —— IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 


SCKSWR: CMP 


T 
$SGTSWR: TYPE 
MO 


19$: CLR 


ASWREG, SWR 
15$ 

asTkS 

15$ 
a$TkKB,-(SP) 
#°C177, (SP) 
#7, (SP5+ 
15$ 


$AUTOB 41 
15$ 


-SCNTLG 
, SMSWR 
SWREG,~(SP) 


2i1S THE SOFT=SWR SELECTED? 
CH IF NO 


CHAR THERE ? 
ie1F “- DON'T WAIT AROUND 
SAVE T HE CHAR 
5 ee THE ASCII 
::1S ITA CONTROL G? 


O USER 
ARE WE RUNNING IN AUTO-MODE ? 
: BRANCH IF YES 


; sECHO THE CONTROL-G (*G) 


V T 

;GO TYPE--OCTAL ASCII (ALL DIGITS) 
[PROMPT FOR NEW SWR 

SO CLEAR COUNTER 

72 THE NEW SwR 


SEQ 0152 


CJKDDA 


CJKDDA. 
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105777 143732 
100375 


P11 


035206 
035212 


035214 
035220 


035224 
035230 
035232 
035236 
035242 


035244 


035366 
035370 
035374 


033376 
035400 
035406 


117746 = 143726 
042716 177600 


001 

104401 035516 
062706 000006 
000757 

021627 000015 
001022 

005766 000004 
001403 

016677 00000 
0627 000006 
104401 


001313 
126727 143633 
001003 
012777 000100 
000002 
176602 
000060 
021627 000067 
003015 
042726 000060 
66 00000 


66 000002 
056616 177776 
104401 001312 


021627 000025 
005 


MACY11 roy 


143652 


000001 
143630 


01 
016666 000004 000002 
105 143532 


7$: 


9$: 


20$: 


17$: 


18$: 


TSTB 
BPL 


MOVB 


BR 
TYPE 


BR 
-DSABL LSB 


20=JUN-79 
Y INPUT ROUTINE 


a$TKB,-(SP) 
BIC #°(177, (SP) 


TST 4(SP) 
11$ 

MOV 2(SP) ,@SWR 
#6,SP 


,$CRLF 

$INTAG,A1 

15$ 

MOV #100,a$TKS 

JSR PC ,$TYPEC 
(SP), 


BIC #60, (SP)+ 
2(SP) 


2(SP) 
BIS -2(SP), (SP) 
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7¢CHAR THERE? 
:31F NOT TRY AGAIN 


:sPICK UP CHAR 
3sMAKE IT 7-BIT ASCII 


21S _ IT A_CONTROL-U? 

3 sBRANCH IF NOT 

32YES, ECHO CONTROL=-U (“U) 
zz IGNORE PREVIOUS INPUT 
7sLET*S TRY IT AGAIN 


si1S IT A <CR>? 
“BRANCH IF NO 

pivES. IS 11 THE FIRST CHAR? 

SAVE NEW SWR 

S:CLEAR UP STACK 


:zECHO <CR> AND <LF> 
2 ¢RE~ENABLE TTY KBD INTERRUPTS? 


oe CH _IF NOT 
nae TTY KBD INTERRUPTS 


: IF bes, 
7:STRIP-OFF ASCII 
2721S THIS THE FIRST CHAR 
: «BRANCH IF YES 

73NO, SHIFT PRESENT 


33GET THE NEXT ONE 
sz TYPE ?<CR><LF> 
32SIMULATE CONTROL-U 


FERRER ERK KERR ERE EKER ERE EERE REE REECE EERE 


SRTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


:*CALL: 
se RDCHR 
hed RETURN HERE 
$RDCHR: MOV 
MOV 
1$: TSTB a$TKS 


4(SP),2(SP) 


323 INPUT A SINGLE yg te FROM THE TTY 
;: CHARACTER IS ON THE STACK 
i:WITH PARITY BIT STRIPPED OFF 


; =PUSH roe THE PC 
Py e ee HE PS 
izWAIT FOR 


SEQ 0153 


CJKDDA KEF11=A_DIAG PART 2 
CJKDDA.P11 20=JUN-79 


035412 


and aed aed cd aan ened eed em 
OONAUS WI 


035546 


RRRLKLLEE 


035552 


035566 
035572 


035574 011646 
035576 016666 
035604 000002 


035574 


11:22 


143526 
177600 
C00004 
143500 
143474 
177600 
000021 
G00004 
000004 


000040 


005015 
006507 
053523 

000 
047040 
000040 


000002 


035606 


000004 


MACY11 we ce to 4 


000004 
000004 
000023 


000140 
000175 
000004 

000 
000012 
020122 
053505 


000002 


ap yng 
INPUT ROUTINE 


1$ 

a$TKB,4 (SP) 
#°C<177>,4(SP) 
4 (SP) 23 
asTks 

2$ 
a$TKB,-(SP) 
#°C177, (SP) 
(SP)+,421 
2$ 

1$ 

4(SP) 4140 
4$ 

4(SP) 4175 
4$ 
#40,4(SP) 


/*U/<15><12> 
/*G/<15><12> 


4$: 

$CNTLU: 
$CNTLG: 
SMSWR : 


SMNEW: / NEW = 


-SBTTL TRAP DECODER 


<15><12>/SWR = 
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;3A ne ty 
7 ZREAD THE T 
$381 RID OF MYUNK IF ANY 
S_ IT A CONTROL=S? 


BRANCH IF NO 
SIWAIT FOR A CHARACTER 
3-LOOP UNTIL _ITS THERE 
2eGET CHARACTER 
7sMAKE IT 7-BIT ASCII 
:IS IT_A CONTROL-Q? 
HIF NOT DISCARD IT 
RESUME 


S, 
2215 iT UPPER CASE? 
:BRANCH IF YES 
3318 IT A SPECIAL CHAR? 
CH_IF YES 


pene te 


FARRER EKER EEK KERR KEKE KEK KEKE RE KEKE KEKE KKK 


SATHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 


:*AND USE IT 
:*OF THE DESIRED ROUTINE. 
:*GO TO THAT ROUTINE. 


STRAP: RO,~(SP) 


$TRPAD (RO) ,RO 
RO 


TO INDEX THROUGH THE TRAP TABLE 
THEN USING THE ADDRESS OBTAINED IT WILL 


FOR THE STARTING ADDRESS 


32SAVE RO 
At TRAP ADDRESS 
KUP BY 2 
7:GET RIGHT BYTE OF TRAP 
7:POSITION FOR INDEXING 
s PINDEX TO TABLE 
::GO TO ROUTINE 


3zTHIS IS USE TO HANDLE THE ‘'GETPRI** MACRO 


$TRAP2: MOV (SP) ,-(SP) 
“44 4(SP) ,2(SP) 


-SBTTL TRAP TABLE 


:sMOVE THE PC DOWN 
:sMOVE THE PSW DOWN 
:sRESTORE THE PSwW 


:*THIS TABLE CONTAINS THE Eee ADDRESSES OF THE ROUTINES CALLED 


:*BY THE ‘'TRAP’’ INSTRUCTION 
: ROUT INE 


STRPAD: .WORD $TRAP2 


SEQ 0154 
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035610 


035620 


035622 
035624 


035710 


035712 


033712 


034422 


035164 
035114 


012737 


20-JUN-79 11 


036016 
000340 


143244 
000122 
035712 


036016 


143176 


035640 
000340 


000020 
175100 


MACY11 30A(1052) 
TRAP TABLE 


000024 
000026 


000024 


000024 


000024 
000026 


000002 


7; CALL=TYPE 

33 CALL=TYPOC 
3;CALL=TYPOS 
3; CALL=TYPON 
3; CALL=TYPDS 


3; CALL=GTSWR 


ere CKSWR 
;CALL=RDCHR 
:CALL= SAVREG 
+I CALL=RESREG 
3; CALL=RSETUP 
-LPER 32 CALL=LPERR 
$STERM=.-$TRPAD 
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TRAP+1 (104401) 


TRAP+5 (104405) 
TRAP +6 (104406) 
TRAP+7( 104407) 
TRAP+12(104412) 


TRAP+13( 104413) 
TRAP+14 (104414) 


SEQ 0155 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T=SWR 

TTY TYPEIN CHARACTER ROUTINE 

SAVE RO=R5 ROUTINE 

RESTORE RO=R5 ROUTINE 

) ROUTINE TO INITIALIZE AT END OF EACH TES 
ROUTINE TO SET UP LOOP ON ERROR ADDRESS 


-SBTTL POWER DOWN AND UP ROUTINES 


FERRE KEKE ARERR EKER EKER EKER EEREKRERE KEK IK 


“POWER DOWN ROUTINE 
MOV 


$PWRDN: ASILLUP,QAPWRVEC ;;SET FOR FAST UP 
MOV #340, a4PWRVEC+2 ;:PRIO:7 
MOV RO,-(SP) 3=PUSH RO ON STACK 
MOV R1,-(SP) 3=PUSH R1 ON STACK 
MOV R2,-(SP) 3zPUSH R2 ON STACK 
MOV R3,~(SP) 3=PUSH R3 ON STACK 
MOV R4,-(SP) 3=PUSH R4 ON STACK 
MOV R5,~(SP) 3=PUSH R5 ON STACK 
MOV @SWR,~ (SP) 3sPUSH @SWR ON STACK 
MOV SP ,,SSAVR6 7sSAVE SP 
es SPWRUP ,@#PWRVEC ;;SET UP VECTOR 
BR oe : HANG UP 


FREER ERK KEKE KEKE KEKE EKER EKER EKER EK KKK KK ek tk tk 


“ POWER UP ROUTINE 
$PWRUP : 


: MOV 
MOV $SAVR6, SP 
CLR $SAVR 
1$: INC SSAVR6 
BNE 
MOV (SP)+,@SWR 
MOV (SP)+,R5 
MOV (SP) +,R4 
MOV (SP) +,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,R 
MOV 
MOV #340, a4PWRVEC+2 ; 
TYPE 
SPWRMG: .WORD POWERM 
MOV (PC)+, (SP) 
$PWRAD: .WORD START 
BIC #20,2(SP) 
CLR $TBIT 


0 
#SPWRDN, AAPWRVEC bat: up 


ASILLUP , d#PWRVEC jin FAST DOWN 


;sWAIT LOOP FOR THE TTY 
2 WAIT FOR THE INC 
WORD 


: OF 
: :POP STACK INTO aSWR 


:POP_STACK INTO RO 
THE POWER DOWN VECTOR 


REPORT THE POWER FAILURE 
2sPOWER FAIL MESSAGE POINTER 
7sRESTART AT START 
2 ¢RESTART spo ss 

AR *'T’* 


7-CLEAR THE Pr BIT FLAG 


N 12 
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036014 000002 RTI 
000000 $SILLUP: HALT #3 THE | POWER UP SEQUENCE WAS STARTED 
000776 BR “72 3: BEFORE THE POWER DOWN WAS COMPLETE 
000000 $SAVR6: 0 :sPUT THE SP HERE 


.SBTTL ERROR TYPE OUT ROUTINE 
3 REE ERE REE EEKEEKEREEEEEKEKEEEEEREKERREKE 
PeeerererrrT Ter TTT TT TT TTT TT TTT TT TTT TTT LLL TLL LLL LLL LLL 
TRTHIS ROUTINE IS CALLED TO TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
[*IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
OR BY FIRST SETTING $ITEMB EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
; *OUT AND THEN ECECUTING A: 


ERTYPE: TYPE TYPE A CRLF 
-WORD $CRLF 
001102 001232 OASTSTNM ,a#STMPO 
177400 001232 #177400 ,a#$TMPO 
601116 001234 MOV @ASERRPC ,a#STMP 1 GET PC OF CALL 
RO,-(SP) ;SAVE RO 


001114 a4#$1TEMB,RO ;GET THE ITEM NUMBER 
177400 #177400,RO 
BN MULT 


036355 -EMSG 
001116 MOV @ASERRPC ,~(SP) 71F ZERO THEN JUST 


PRINT THE PC 
036134 MP =~ —s @AERTS 


RO OTHERWISE MULT RO BY 2 TO 
GET ERROR MESSAGE POINTER 


PO 
001346 #SERRTB,RO 
036124 ov (RO) .anes :PICK UP ADDRESS OF ERROR MESSAGE 


;RESTORE RO. 
zAND RETURN. 


-SBTTL FPP SPURIOUS TRAP TO 244 HANDLER 
FIG III SIOIIOI IOI III IOI IOI IOI I TOT TOTTI TOR OTA IIT AI IAI ISAAISISISASSS SAS 
DORIC ICICI IOIOIOI IOI CII III TOT TOT TOT A TOT AI AAI SII ISS ISAIS SASS SAS AM 
SRTHIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244, 
:*THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
; THESE ALONG WITH THE FEC, FPS AND PC OF TRAP, ARE REPORTED. 


011637 001236 EPSPUR: MOV (SP) , DASTMP2 SAVE PC OF TRAP. 
022626 CMP (SP) +, (SP)+ SRESTORE SP. 


SEQ 0156 
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STFPS RO :GET FPS 
001240 MO RO, a#$STMP3 
RO :GET FEC 


TST 
001242 i. RO ,awSTMP4 
:GO INITIALIZE THE FPS AND STACK: AND 


; SOF E 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
032736 ;THE USER TYPED CONTROL G?). 


-SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 


STARR REE REREEEEEEEREKREREEREEEEREKEREEEEEEEEEEKEKEEEKEE 
SEAR ERR ERE EERE 


:*THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 4. 
** 


011637 CPSPUR: MOV (SP) ,a#$TMP2 SAVE PC OF TRAP. 

022626 CMP (SP)+,(SP)+ 

104000 1$: ERROR 0 

104413 RSE TUP te if Trt oe THE FPS AND ha AND 


HE SO 
:VIRTUAL_ CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
032736 JMP a4$EOP 


-SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 


FEKETE KKK KEK 
FARRER ERK 


: THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 


011637 001236 iP Two: MOV (SP) ,@ASTMP2 :SAVE PC OF TRAP. 

022626 CMP (SP)+,(SP)+ 

104002 1$: 2 

104413 :GO_ INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS ee uae 
THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 

032736 


-SBTTL SET LOOP ON ERROR ADDRESS ROUTINE 
DIO IIOIII III IIIS IIOIOIIIDIOIIUIUICIOIDIOIOIOIOII IIIT IIIT OI II TOI I III IE 
DIDI IOIOIOISISIIOIIISIOISOIUIOIDIOIOIIIOIOIOIIIOIOIDIOIOIDIOIOIOIOIOIOIIOII III III III III IOI I 


PER: MOV (SP) ,@A$LPERR 
RTI 


4 
ol 


011637 001110 
000002 


SRERRRE 
CONAU Rwy 


-SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 
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PP eP ITT ir iit titi tii titi itt tt tt tt 
IBAA IOI ISIS SIUIIIIIISIIOIISIIOIOISIDIOIIOIIIIIDIUOIIIUIIOIDIIOIIIIOIINIDINID I nt 
tRTHIS ROUTINE WILL BE ‘a ¥ AT THE END OF EACH TEST TO 
;*RESET THE STACK, CLEAR THE FPS AND SEE IF THE USER HAS TYPED 
:* CONTROL G ON THE TERMINAL. IF THE USER HAS TYPED CONTROL G AND 
;*THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 
:*OF THE SOFTWARE SWITCH REGISTER WILL BE TYPED IN OCTAL ON THE 
;*TELETYPE AND THE USER CAN MODIFY IT. 
-* 


023727 001140 177570 ‘RSET: CMP @ASWR 4177570 SEE IF THERE IS A PHYSICAL 
CONSOLE SWITCH REGISTER. 
001001 BNE 1$ CH 


[BRANCH IF NO. 
104407 sOTHERWISE TYPE THE CONTENTS 
;OF THE PROGRAM VIRTUAL SWITCH REGISTER 
SAND GIVE THE USER A CHANCE TO 
sMODIFY IT. 
012737 036140 00244 $ #FPSPUR , QAFPVECT 
036172 000004 A#CPSPUR , @#ERRVECT 


036210 000010 
P).RO SAVE RETURN ADDRESS. 
001100 #STACK, SP RESET THE STACK POINTER. 
a sCLEAR THE FPS. 


(RO) RETURN. 


«-NLIST BEX 
; THESE ARE SPECIAL MESSAGES: 


051105 POWERM: att <CRLF >" POWER FAILURE. PROGRAM RESTARTING.‘ 
: ASCIZ <TAB> 
052101 : “ASCIZ /FLOATING Seg ERROR, STOPPED AT PC= / 
040502 : -ASCIZ /PROBABLY BAD FP1 CHIP./ 
041101 : -ASCIZ /PROBABLY BAD HYBRID FP CHIP./ 
020117 047111 EMS: “ASCIZ /NO INTERRUPT FROM SLU IN ALLOTTED TIME ./ 


- END 
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AMADR3= 000000 


SEQ 0159 
EEC2 017662 
EEC20 17772 


cEscseeecnceee 


000020 : 017754 010752 
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LLCO peaeee H 025534 002416 


SEQ 0160 


RRR4 003146 
RSETUP= 104413 
R6 =%000006 


R7 =%000007 
SAVREG= 104411 
‘ACE 36350 


002406 00 
023140 025516 002220 RRBDON 014204 027142 





F 13 
CJKDDA KEF11=A_ DIAG PART 2 MACY11 30A(1052) 20=JUN=79 11:39 PAGE 162 
CJKDDA.P11 20-JUN=79 11:22 SYMBOL TABLE 


027162 AB 020446 TTT20 004122 
TTTS 04004 


SEQ 0161 


020230 003760 004476 
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005252 Z2Z2 006630 001202 001260 


$OF ILL 

"LPER — 

"RSET 03623 
"$x. = 00 


$FATAL 001320 001164 001256 
000 


ERRORS DETECTED: 0 


MULE : CJKDDA,MULE : CJKDDA. SEQ/SOL/NL : TOC=CJKDDA.P11 
RUN-TIME: 98 70 3 SECONDS 

RUN-TIME RATIO: 378/172=2.1 

CORE USED: 27K (53 PAGES) 





